FOR COMMODORE PERSONAL COMPUTER USERS 


OUTPUT TTT 


MIDI 
MAGIC! 


Create 
state-of-the-art 
music on your 
64 & 128 


e Setting up your 
instrument and 
computer 

@ Pro musician’ «\y 


Software Pack 
3-D Sprites 
Design & animate es 
niroSiopegea PETROL Sies 

Even beginfiers 

get top results 


Gs ot Nw OCI a 


oO 


sae an) 
a 
1 


1 


August 
1988 


| | | 
| 


486502220 





Ms  BRIANDOUGHERTY 
Software Designer/CEO 
Berkeley Softworks 


Ul 
ag ow ed 
ese | | 
EA OO 


Commodore” owners, does just that! 

As the developer of GEOS, the graphics environment operating 
system for Commodore 64s and 128s, | know how good Q-Link is. 
Personally and professionally. Here at my company, we recommend 
Q-Link to all our customers. We use it ourselves, too, for online 
customer service ... so you can get help when you need it. We've 
also found it’s a very efficient way to provide upgrades and patches 
and to announce new GEOS-compatible products. 

With just your Commodore, a modem and Q-Link software, a new 
world of personal computing options opens up: thousands of 
programs you can download and keep; advanced graphics (thanks 
to GEOS); an exclusive help line to experts at Commodore; 
online educational courses taught by real teachers; fun; games; 
friendship, you-name-it. Q-Link lets you realize the full potential of 
Commodore computing—right at your fingertips. 

Do | use Q-Link? Absolutely! And what's really impressive is that 
when you join Q-Link, you get a modem and Q-Link Software free! To 
my mind that’s a tough offer to turn down. But don't take my word 
for it. Find out for yourself. Call ... 


1-800-782-2278 ws 


Call today to get your free modem and software. 


| nd Q-Link, the dynamic telecommunications service for 





THE COMPLETE 
PROGRAMMER FOR 
THE COMPLETE 
PROGRAMMER. 


If you're thinking about trash- 
ing your programming soft- 
ware, we'd like to offer you 
some advice, 

Do it. 

Because we've taken a com- 
pletely new approach to pro- 
gramming software, It’s called 











geoProgrammer. The easi 
most integrated, most sophi: 
ticated 6502 development 
package there is for Commo- 
dore 64's and 128's. 

With geoProgrammer, you 
can toss out your old assem- 
bler. And your old linker. And 
while you're at it, the old 
debugger, too. Because you 
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geoAssembler 








eoAssembler 

assembler directives: 

*user-definable macros with up to 
6 arguments 

* condition as 
-ENDIF, ete.) 

+ global and local labels 

+ expression evaluator recognizes 

arithmetic and logical 

operators 

automatically reads bitmaps from 

geoWrite 

+ exclusive pass 1 optimization flag 

«can include other source files (eg. 
constant definitions, ete.) 

* expressions can contain exter 

nnces (resolved by linker) 

+ symbols may contain up to 20 
characters 








mbly (IF, ok 




















geoLinker 
* creates both GEOS and standard 
Commodore applications 














get all that with geo- 
Programmer. And even more. 
It comes completely 
assembled. 
With geoProgram- 
mer 2.0, you get all 
the support you 
need, in either 
* 40 or 80 
column mode, 
starting with three 
basic elements. 
geoAssembler 
reads source 
code 
directly 
from geoWrite 
files, and contains 
enough directives to handle even the 
most complex application —directives 
for conditional assembly, macro 
programming and memory initializa- 
tion, too. It has state-of-the-art 
features you'd never expect, lik 
graphics that can be generated by 
simply cutting and pasting the image 
from geoPaint directly into your 
source code. 
geoLinker ties your program mod- 
ules together, generating GEOS SEQ 
and VLIR applications as well as desk 
accessories. You can even use 
geoAssembler and geoLinker 




























geoLinker geoDebugger 





to create non-GEOS applications 
geoDebugger displays your pr 
ram in memory with full symbolic 
embly, and allows patching with 
embly, It can single-step, top- 
step or execute your code at full 
speed, It can stop a running program 
with one key, or use up to eight soft- 
ware breakpoints. When your pro- 
gram hits a breakpoint, geoDebugger 
promptly switches to a special overlay 
window, leaving the application 
screen intact. 
You'll be completely amazed. 
‘There's so much you get with geo- 
Programmer—and so much you can 
do with it—that we couldn't list it all 
here. But we could put it all on one 
disk. Which is why so many serious 
hackers ask for geoProgrammer by 
name. 

You should, too, Because until you 
do, you just won't be completely 


Berkeley 
Softworks 












































The brightest minds are working with Berkeley. 


+ up to 20 overlay modules ina 
VLIR application 

+ resolves external references con- 
taining complex expressions 

+ up to 3,200 symbols in nd CBM 
applications 

+ up to 29,000 symbols in VLIR applications 
(3,200 in resident module plus 1,400 per 
overlay module) 


ebuguer 
debugger commands, including memory 
examination and modification, single-step, 
full-speed execution, disk block 
examine/modify, breakpoint manipulation 
and more 

+ independent debugger status window 

+ full symbolic disassembly 

+ extensive command macro language 

+ up to 8 independent breakpoints 

*numeric entry and display in decimal, 
hexadecimal, binary and symbolic format 

+ allows debugging of non-GEOS applica 

+ full bank-switching support for 

+ takes advantage of 1750 and 1764 RAM 

pansion Units 































To order call 1-800-443-0100 ext. 234 


geoProgrammer 2.0 $69.95 
(California residents add 7% sales tax.) 
) Foreign for shipping and 











DARE TOBE DIFFERENT 


Hot New Simulations From The Computer Craftsmen At MicroProse 


High Seas Adventure Top Secret Air Strike Daring Solo Missions 


Become one of 

















1 Relive the § Invisibility is your n 
rasa | swashbuckling era greatest weapon n 1 America’s most 
of the buccaneer By) in PROJECT: i) elite soldiers 
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RANGER. Cunning 
and fast reflexes 

) are needed to 
succeed on 12 solo 
missions deep be- 
hind enemy lines. 


asa 17th century os 
i a simulation of 


9 
privateer captain = 
| in PIRATES! Ita r the Air Force's 
= unique gaming : unacknowledged 
blend of simula- ~ super-tech jet 
aa a fighter of tomor- 
row. You're the 
piloton top-secret missions to 
world troublespots. 











Available at a Valued Micr: 
roprose Retail 
(MR) near you. Call for jomtens Itot 
found locally, call for MC/VISA orders. a 
= —= 
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A FIGHTER (Suggested rent $9 180 Laketront Dive 
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editor's 


notes 


It's been a busy few months for Max 
Toy. 

Appointed president and chief op- 
erating officer of Commodore Business 
Machines last October, Toy was 
charged by Commodore Chairman Ir- 
ving Gould with leading “the company 
toward our goal of recapturing our mar- 
ket share in the United States.” 

That's no small task. From its hey- 
day in the early eighties, Commodore 
fell upon hard times and loss of domes- 
tic direction. The company walked 
away from its success in the education 
market, and likewise seemed uncertain 
of the proper way of marketing its 64 
and 128 family. For a while things were 
in such disarray that industry pundits 
frequently prepared obituaries for the 
64 and for Commodore itself. 

Those obituaries were premature. 
Once again, Commodore is profitable, 
knows where it is going, and knows 
that the 64 and 128 will play a large 
part in the journey. Max Toy, firmly at 
the helm of the company, has no 
doubts about the directions he will pur- 
sue. In a recent interview with COM- 
PUTE!, he held forth on a variety of 
subjects, including the rumors of the 
64/128's imminent demise. 

“The 64 and 128 still welcome 
more first-time users to computers than 
any other product or company in the 
world,” Toy said. “That's a tremendous 
opportunity. We've got an installed 
base for the 64 alone of many millions. 

“The software community is con- 
tinuing to write new and better soft- 
ware for the 64. And as long as the 
software community continues to de- 
velop and invest in new software, and 
as long as there are new users coming 
into the marketplace, this warhorse still 
has a significant opportunity, and one 
that’s continuing,” 

When asked whether whispers of a 
price drop to $99 for the 64 were accu- 
rate, Toy was emphatic: “Absolutely 
not.” 

Part of Commodore's marketing 
difficulty may have stemmed from the 
widespread misperception of the 64 and 
128 as game machines. Lately, of course, 
game machines such as Nintendo have 
gobbled a large share of the home enter- 
tainment market. As its Amiga and PC- 
compatible lines gain strength, will 
Commodore at last shift the 64 toward 
purely game-oriented marketing? 
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Toy says no. “We are a computer 
company first, and we bring computers 
to the first-time user. One of the attri- 
butes of that is the capability to play 
some of the finest, best-developed 
games, and the largest selection of 
games that exists in the world today— 
and that is on the 64 base. 

“The entertainment category for 
the 64 is still exponentially greater— 
whether quantitatively or qualitative- 
ly—than anything that exists in the 
market today. 

“But it is a computer, first and fore- 
most,” he emphasized. “It is still the 
easiest, best tool to learn programming 
on of any computer in the market. But it 
has the plus of being able to have the 
best entertainment out there. We will 
continue to position the 64 and 128 as 
computers first, as an entertainment 
system second.” 

But what about Nintendo? “There 
are people who will be buying game 
machines to play games. There are peo- 
ple who will be buying computers that 
can play games, and grow their kids’ 
skill sets and get them better prepared 
for the future. 

“There’s nothing wrong with 
games. But where the leverage comes 
from, where the learning comes from, is 
when you take that same tool, teach 
from it, and learn some skills that 
you're going to be able to use through- 
out the rest of your life.” 

Just a few months into his tenure at 
Commodore, the former IBM and Com- 
Ppaq executive is exuberant but honest 
about the challenges and opportunities 
facing the company. There is a lot of 
day-by-day work to be done to restore 
Commodore to the levels of success it 
once enjoyed, but not only is Max Toy 
ready to take on the challenge; he’s also 
eager to face the future. 

That future should see renewed 
success for Commodore, the computer 
company. 

[The complete interview with Max 
Toy can be read in the August COM- 
PUTE!,) 
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Prepare for the ultimate fantasy when the 
first official 


Game Product comes alive on your computer! 
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Poot oF RADIANCE, 
the culmination of its collabo- 
ration with TSR to bring the 
legendary ADVANCED 
DUNGEONS & DRAGONS?® 
fantasy role-playing system to 
your home computer. 


Poor oF RADIANCE is set in the huge, 
complex world of the Forgotten 
Realms, a world brought to life by 
\ the combined talents and skills of 
top designers and programmers 
» from bot! . Its game 
system adhe to AD&D® 
standards. Its state-of-the-art graphics 
push the very limits of the computer's 
capabilities. The only way to believe it is 
Eto experience it for yourself — wherever 
game software is sold. 


Look for the entire line of AD&D 
”),)))) . pated products coming soon 
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letters 


ihe editor 


There's More for Your Life at Sears 
Your June feature on Commodore- 
ready printers failed to mention the ex- 
cellent Sears SR 2000 printer, This 
dual-interface, dot-matrix printer 
works in Commodore and Epson 
modes, has a full range of features— 
such as underline, italics, sub- and su- 
perscript, tractor and friction feed, and 
condensed or expanded print—and it 
costs less than $200. 
Michael D, Smith 
Portland, OR 


Thanks for the information. We were un- 
aware of this printer until your letter 
arrived, We talked to a Sears representa- 
tive who verified this and added that the 
SR 2000 is available for $199.99 and is 
compatible with every major brand of 
computer. In draft mode, it prints at 130 
cps, and in NLQ mode, at 30 cps. A print- 
er cable for the 64 and 128D is also avail- 
able for $4.99. 


Thanks All Around 


In the April issue, we printed a letter from 
Joseph Hobart asking for donations of 
VIC-20s with accessories for use by stu- 
dents of the Apache, Hopi, and Navajo In- 
dian reservations in northern Arizona. 
Here's an update from Mr. Hobart. 


Thank you for printing my request for 
VIC-20s, for sending along the five 
VICs, and for your endorsement of my 
project. The response has been excel- 
lent. We have received computers and 
accessories from all over the country. 
I was extremely impressed with 

the generosity shown. Several systems 
arrived with computer, cassette, and 
$500 to $1,500 worth of cartridges, pro- 
grams, books, and other accessories! 
You have some very dedicated and seri- 
ous computer users reading the GA- 
ZETTE. As of today, we have received: 
40 VIC-20s with power supplies 

38 Datassettes 

4 printers and plotters 

31 RF modulators 

23 RF switch boxes 
books (not including manuals) 
program cartridges 
programs on cassette 
20 introductions to BASIC 
blank cassette tapes 
12. expansion boards 
33 expansion memory cartridges 
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8 joysticks and paddles 
13. floppy disks with PD software 
2 modems 

1. printer interface 


We're a little short of RF modula- 
tors and switch boxes—not surprising 
since many who sent equipment were 
probably using monitors, We've re- 
ceived a number of 64 programs, but so 
far have only one promise of a 64 and 
disk drive. All of the equipment is now 
in place and in use. Thank you again. 


Joseph Hobart 
975 Mesa Trail 
Flagstaff, AZ 86001 


And our thanks to all the readers who re- 
sponded so generously. Since this project is 
an ongoing program, we'd like to encour- 
age further donations. In case you missed 
our April issue and would like to contrib- 
ute to a worthy effort, send your donations 
to Joseph Hobart at the address above. 


No Reply 

I am not satisfied with the fact that in 
the past two years I’ve written two or 
three letters requesting advice on prob- 
lems with the 64 which have not been 
published. I would like some feedback 
about your policy on answering letters. 


J. R. Corts 
Oakdale, MN 


Readers would probably be amazed at the 
volume of mail we receive regularly, In 
fact, if we responded to every letter we re- 
ceive, we wouldn't have the time to pub- 
lish the magazine. (We do, however, read 
every letter.) If we see a number of ques- 
tions on the same topic, we address that 
topic in “Feedback” or schedule an article 
or program on the subject. Logic tells us 
that if we answer a question or handle a 
problem for 25 different readers, we're do- 
ing better than answering one sent in by 2 
readers. It's impossible to answer every- 
one, so our attitude is to address as many 
readers as we can in the time frame and 
space allotted by each monthly issue, 


More Than a Game Machine 

There’s been an increasing interest in 
game machines such as the Nintendo 
and Sega. Commodore has been trying 
to attack these by selling the 64 as a 
game machine, I think more emphasis 





should be put on the 64 as a productivi- 
ty machine. | understand that many 
people play games on their 64s and so 
do I, but I think the 64 should not be 
lowered into the game-machine market. 


Mark Abbott 
London, KY 


We agree. The 64 is a great game machine, 
but it's also much more. When you use a 
Nintendo or Sega, you play games, When 
you use a 64, you can play a game, write a 
letter, create colorful and detailed art, 
write and design a newsletter, teach math 
or spelling, process data, write a program, 
create and play music, manage a small 
business, and much more. 


Back Issues 

I'd like you to republish “TurboTape.” I 
still own a cassette and find it quite bor- 
ing to wait for loading. 


Louis Stice 
Newcastle, CA 


Sorry, but it’s hard for us to justify repub- 
lishing nearly six pages of documentation 
and code for a tape utility when more than 
95 percent of our readers use disk drives. 
However, you can order the July 1985 is- 
sue, which featured “'TurboTape,” by 
sending $5 to Gazette Back Issues, P.O. 
Box 5188, Greensboro, NC 27403. A back- 
issue order blank is now published regu- 
larly in each issue, 


Plus/4 Support 


You are the only magazine that sup- 
ports the Commodore Plus/4. 1 would 
like to thank you and say it’s greatly 
appreciated, 


James K. Medeiros 
Newport, RI 


We're aware that there are but a few 
Plus/4s out there compared to the number 
of 64s and 128s, but we decided a few years 
back that with just a little extra effort we 
could make a number of our programs com- 
patible with the Plus/4, In fact, a number 
of them run as is on the Plus/4. We receive 
a fair number of letters from Plus/4 users, 
so we know that while the number of users 
may be small, they're a dedicated group. 
Also, we're able to offer support of the 
Plus/4 without sacrificing the space used 
for 64 and 128 coverage. @ 
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COMPUTE!’s 


| We've collected the best Amiga games 
from our archives, plus several super 
never-before-published games to put to- 
|gether a great value: 15 entertaining 
|games—from frantic arcade-style to 
challenging strategy—all on one disk 
| (documentation included) for only $9.95 
plus $2 postage and handling. Don’t miss 
out on this deal! 


ORDER NOW! 


A GREAT 
VALUE! 


Games Disk 








Send me copies of COMPUTE!’s 
Amiga Games Disk. 
I've enclosed $11.95 for each copy. Amount 
Sales Tax" 
Total 








Cay State 2. 








*New York residents add 814 percent sales tax. North Carolina residents add 5 percent 
sales tax. All orders must be paid in U.S. funds by a check drawn on a US. bank. Sorry, 
No credit card orders accepted. 

Disks wil be shipped the first week of August. Piease allow 4-6 weeks for delivery. 


feedback 


Do you have a question or a problem? 
Have you discovered something that 
could help other Commodore users? 
We want to hear from you. Write to 
Gazette Feedback, COMPUTE!’s Ga- 
zette, P.O. Box 5406, Greensboro, NC 
27403. We regret that, due to the vol- 
ume of mail received, we cannot respond 
individually to programming questions, 





Plugging In Peripherals 
Is there any harm in keeping your peri- 
pherals plugged into your computer all 
the time, or should you plug them in as 
you need them? 
John Potter 
New Lexington, OH 


You may safely leave your peripherals 
plugged into your computer at all times. 
In fact, you're likely to save wear and tear 
on the connectors if you do so, And re- 
member—you should never plug in or un- 
plug a peripheral while the power is on. 





A Big Blue 642 


Recently I received a flyer advertising a 
program that would permit you to run 
IBM programs on the Commodore 64 
and also run 64 programs on the IBM. I 
misplaced the flyer and both my wife 
and I have been looking for it. 

Can you help? Do you know of this 
program and, if so, do you know where 
it can be purchased? I doubt that there 
would be any reports about it, good or 
bad, since it is a new product. 


Vincent J. Shroad, Jr. 
Morrisville, PA 


We answered a similar question in the 
April 1988 issue of our sister magazine, 
COMPUTE. The bottom line of the an- 
swer was that there's just no such thing. 

In fact, it’s painful to imagine a Com- 
modore 64 emulating an IBM PC. For one 
thing, most PC’s have at least 512K of 
memory, while the 64 has only 64K. You 
could emulate the extra memory and a 
hard drive with a huge stack of floppy 
disks, but this would slow down the pro- 
gram to an unbearable crawl—imagine a 
spelling checker that takes three months 
to check a document. 

It's equally painful to imagine an 
IBM PC emulating a 64. The PC does not 
have sprites. It has only four colors in 
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graphics mode. It has poor sound. So for- 
get about playing your favorite 64 games 
on an IBM PC. 

There are a number of available pro- 
grams—public domain and commercial— 
that allow text files created on PCs to be 
read by 64s or 128s, and vice versa. In 
fact, the February issue of COMPUTE! 
includes “The 128/MS-DOS Connec- 
tion,” a machine language program which 
allows you to read and write to disk in 128 
or MS-DOS format. 





End of the Line 


I own a Commodore 128 with a 1571 
disk drive and a 1670 modem. My 
friend has an IBM clone. When we com- 
municate via modem, we are able to 
“talk” to each other quite satisfactorily. 
However, when I attempt to send him a 
text file, he receives it without line- 
feeds, and the text overwrites itself on 
the same line. If he sends mea text file, I 
receive it in good shape. We both use 
Xmodem protocol. 

The documentation for the termi- 
nal program tells me that Commodore 
computers automatically print a line- 
feed with each carriage return, When | 
examine the text file in the monitor, I 
expect to see each $0D (carriage return) 
followed by an $0A (linefeed). Such, 
however, is not the case. 

The only solution I have found for 
this problem is to retype the text file, 
pressing the LINEFEED key at the end 
of each line before pressing RETURN, 
which results in an inordinate amount 
of typing. 

John Breckenridge 
Orange, CA 


Printing a carriage return (CR) to a Com- 
modore screen does two things: It ad- 
vances the cursor to the beginning of the 
line (the carriage return part) and it also 
advances the cursor to the next line (the 
linefeed part). When a Commodore printer 
receives a CHRS$(13)—the ASCII value of 
CR—it feeds the paper up by one line and 
returns the printer's carriage to the start 
of the line. 

Thus, to Commodore computers, a 
single CHRS(13) marks the end of one line 
and the beginning of the next. Your 
friend's IBM clone obviously wants both a 
CHRS(13) and a CHRS$(10) at the end of 
each line. There are several solutions to 





Editors and Readers 


this problem. 

Some terminal programs offer the op- 
tion to automatically add linefeeds (check 
your documentation for details). Whenev- 
er they find a CR in the original file, they 
automatically append a linefeed (LF) char- 
acter. In most cases, you'll have to trans- 
fer the file as text, however, instead of 
uploading it. Uploading via Xmodem pro- 
tocol almost always sends files exactly as 
they exist on disk, You might be able to 
transfer the file from disk or you might 
have to load it into a buffer (a section of 
memory) and then transfer the buffer. 

Some terminal programs allow you to 
load a text file into a buffer and then edit 
it, in which case you might be able to use a 
search-and-replace command to add line- 
feeds. 

When you create the text file with a 
word processor, you could add linefeeds, 
using search-and-replace to change CRs 
to CR + LF. Some word processors inter- 
pret CTRL-M as CR and CTRL-] as LF. 

A final possibility is to write a short 
BASIC program that adds LFs to a text file. 
Try this: 

10 OPEN 1,8,2,"ORIGINAL,S 

EM READ FILE 
20 OPEN 2,8,3,"NEWLE,S,W":REM 

{SPACE}WRITE FILE 
30 GET#1,A$:S=sT 
48 PRINT#2,A$;:IF A$=CHRS (13) 

{SPACE} THEN PRINT#2,CHRS (10 

de 
50 IF S=@ THEN 30 
60 PRINT#2:CLOSE: 


pR"ER 





:CLOSE1 


Substitute the original name of the 
file in line 10 and the new filename in line 
20. 





A Noisy Cursor 


Jam interested in programming the SID 
chip on my Commodore 64. I have two 
different problems. The first concerns 
using different waveforms and ADSR 
(Attack/Decay /Sustain/Release) en- 
velopes. When I set the attack/decay to 
255 (240 for longest attack, 15 for long- 
est decay), the sustain/release to 255, 
and the waveform to 33, I get a sound 
similar to a saturated guitar, When I try 
different values for waveform, attack/ 
decay, and sustain/release, the com- 
puter is silent. What causes this? 

My second question concerns an 
interesting routine I wrote in machine 
language. My goal was to make a sound 





We're 
giving 
away 


List of prizes 


Grand Prize $1000 CASH (1 winner) 

2nd Prize Choice of Abacus books and 
software (2 awards) $500 value 

3rd Prize Choice of Abacus books and 
software (2 awards) $400 value 

4th Prize Choice of Abacus books and 
software (2 awards) $300 value 

5th Prize Our complete C-64 Library 


Set-$227 value (100 awards) 


BeckerBASIC gives you over 270 commande 


Create Hi-res drawings on the GEOS screen 





Dept. M3 = 5370 52nd Street SE 
Grand Rapids, Mi 49508 
Telex 709-101» FAX 616/698-0325 
Phone 616/698-0330 


In prizes, i 
GEOS applica 


You already know GEOS. And if you know BASIC, then 
you can write applications to run under GEOS using our 
new and exciting BeckerBASIC for the C-64, 


Now Abacus is sponsoring a contest to find the most 
talented authors among you. We're looking for the best 
GEOS applications written using our powerful 
BeckerBASIC. With more than 270+ new commands and 
functions, BeckerBASIC makes writing GEOS 
applications a snap. There's commands for hires graphics, 
pulldown menus, dialog boxes and much more. 


To learn more about BeckerBASIC or our contest write or 
call Abacus. Or better yet, pick up a copy of BeckerBASIC 
at one of our thousands of dealers and start writing those 
GEOS applications now. 


Here's the contest rules: 


1, Write your entries using BeckerBASIC to run under GEOS. 
Entries must be submitted on a diskette. 

2. You can submit multiple entries provided that all entries fit on a 
single diskette. 

3. Entries must be accompanied by the official entry form you'll 
find inside the BeckerBASIC package. Xerox or reproductions of 
the entry form are not acceptable. 

4. You must make sure that your entry is received by Abacus no 
later than August 31, 1988. 

5. We'll announce the winning entries by October 31, 1988. 


Complete rules are on the official entry form inside the BeckerBASIC 
package. 


purse lect ent ees eretevaleneaelenelaasleolmrenetertianstanl 
YES! | want to start writing applications for GEOS. Please rush 
me BockerBA! 














Pioase send me a free catalog of your extensive line of software 
‘and books for the Commodore 64 or Commodore 128. 
To order, mall this coupon or cai 
‘Abou, 5970 52nd Street SE, Grand Rapids, Mi40508 = 1-800-451-4319 


1 ‘SIC at $40.95 plus $4.00 shipping and handling | 
(foreign $12.00). Nn residents add 4% sales tax. 

I ign $12.00). Michiga add 4% sales I 
| Paymene VISA MC AMEX Check MoneyOrder 1 
[ CardNo, Exp. date r] 
I YESI I'm Interested In writing GEOS applications. Please send me I 
I Information about BockorBASIC and your contest I 
 Wakatis! I 
| Addroes | 
1 cy State__ Zip. I 
I I 
1 I 
r L 

al 


Me eset se et a A 








;Noisy cursor 





that rose and fell with cursor move- 
ment. Can you show me how to do this? 
Bulfon Gabriele 

A Italy 


There are a couple of common mistakes 
that cause silent SID chips. These have to 
do with a failure to properly set one or 
more of the chip's registers. Rarely is the 
chip itself defective. 

The SID chip has three voices (1-3). 
You must set the registers that pertain to 
the particular voice or voices you want to 
hear. To create a sound, set the volume, 
location 54296; the ADSR envelope, SV+5 
and SV+6 where SV=54272+7%voice 
number—1); the frequency, SV+1 (the 
high frequency) and SV (the low frequen- 
cy); and the waveform, SV+4, Remember 
to set the frequency and the ADSR enve- 
lope before gating the waveform. Gating 
starts the attack/decay/sustain cycle and 
is accomplished by storing a 1 in bit 0 of 
the appropriate voice control register. 
Once the waveform has started, ungate it 
(start the release cycle) by storing a 0 to 
this bit. During this process, if you happen 
to store a O in the voice control register 
(clearing all eight bits) rather than store to 
the gate bit alone, the sound will stop en- 
tirely. This will also occur if the volume or 
frequency registers are set to 0. 

If you choose a pulse waveform (by 
setting bit 6 of SV+4), you must also 
POKE locations SV+2 and SV+3 with 
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iFirst, redirect IRQ vector to SOUND 
SEI ;disable IRQ interrupts 


LDA #<SOUND jstore SOUND address in vector 
STA 788 
LDA #>SOUND 
STA 789 
;Set SID registers 
LDA #0 jset attack/decay to 0 
STA 54277 jon voice 1 and 
STA 54284 jon voice 2 
LDA #240 jset sustain to 15 
STA 54278 jrelease to 0 on first 
STA 54285 jtwo voices 
CLI jreenable IRQ interrupts 
RTS jand return 
SOUND LDA 646 juse text color for volume 
STA 54296 
;Use cursor position for frequencies 
SEC jset carry to read cursor location 
JSR 65520 yexecute PLOT 
TXA 
LSR jadjust slightly 
STA 54273 juse .X for high byte in voice 1 
TYA 
LSR 
STA 54280 jand_.Y for high byte in voice 2 
LDA #16 select triangle waveform and ungate 
STA 54276 svoice 1 and 
STA 54283 voice 2 
LDA #17 igate sound 
STA 54276 jon voice 1 
STA 54283 jand voice 2 
JMP 59953 jexecute normal IRQ interrupts 








the pulse width. This must be done for 
each of the three voices you're using. 

With regard to your second question, 
the machine language routine above cre- 
ates a noise-making cursor. 

The first part of this program points 
the IRQ interrupt vector at location 788 to 
itself so that the routine labeled SOUND 
will be called once every 1/60 second. It 
also sets the SID chip registers for Voice 1 
and 2. 

Each time SOUND is called, the vol- 
ume for the SID chip is taken from the text 
color in location 646, The Kernal routine 
PLOT returns the current cursor position, 
with .X containing the row number, and 
-Y, the column number. These values, 
with slight modification, are stored in the 
frequency registers (high byte only) for the 
two voices, and a triangular waveform is 
initiated. Pushing the cursor down the 
screen thus increases the pitch of Voice 1, 
and moving it to the right results in a 
higher frequency for Voice 2. 

Notice we ungate the waveform here 
prior to gating it. Ordinarily, you would 
gate the chip first, follow it with a delay so 
the attack /decay/sustain cycle could fin- 
ish, and then ungate it to start the release 
cycle. In this case, we reverse the gating/ 
ungating sequence and let the interrupt 
itself serve as the delay. 

If you aren't that comfortable with 
machine language, here’s the above rou- 
tine in the form of a BASIC loader: 





10 FORI=49152T049219:READA: POK 
EL,A:X=X+A:NEXT 

20 IFX<>7812THENPRINT"DATA ERR 
OR.":STOP 

30 DATA 120,169,29,141,26,3 

4@ DATA 169,192,141,21,3,169 

50 DATA @,141,5,212,141,12 

6@ DATA 212,169,246,141,6,212 

70 DATA 141,13,212,88,96,173 

80 DATA 134,2,141,24,212,56 

90 DATA 32,240,255,138,74,141 

100 DATA 1,212,152,74,141,8 

11@ DATA 212,169,16,141,4,212 

126 DATA 141,11,212,169,17,141 

136 DATA 4,212,141,11,212,76 

140 DATA 49,234 


Simply load and run the program to 
POKE the code into memory and then type 
SYS 49152 to activate it. 

If the noisy cursor begins to annoy 
you after using it for a while, you can 
silence it by pressing RUN/STOP-RE- 
STORE. To restart it, type SYS 49152 again. 





128 DOS Shell 
How can I transfer the 128 DOS Shell 
which comes on the Commodore 1571 
Test/Demo Disk to my own disks so 
that it’s available when I need it? 
C. E. Spurlock 
Millersburg, MI 


Your question—and our answer—come at 
just the right time. This month's Power 
BASIC, “128 Shell Booter” by David 
Ockrassa, provides a solution to your 
problem, 


Switching Out ROM 
I have a programming problem on my 
64 that I'd really appreciate some help 
with. I am unable to switch out BASIC 
ROM (40960-49151) to access the RAM. 
underneath. POKE 1,PEEK(1) AND 
254 doesn’t seem to work. After this 
POKE, location 1 remains unchanged 
and BASIC is unaffected. (I did not 
copy ROM to RAM first.) On the other 
hand, POKE 1,PEEK(1) AND 253 
seems to work. (It hangs up the system, 
so it must be switching out the Kernal 
ROM.) I have version 3 of the Kernal. 
Is there something wrong with my 
computer or am I going at this wrong? 
All my software seems to work fine. 
Ron Hoffman 
Dunkirk, NY 


Switching out the BASIC ROM (Read 
Only Memory) to access the RAM (Ran- 
dom Access Memory) underneath is a fair- 
ly common practice among machine 
language programmers. When you switch 
out BASIC ROM from within a machine 
language program, the microprocessor 
simply continues with the next command 
within the program. 

BASIC itself is a machine language 
program. As a matter of fact, the BASIC 
interpreter is running as soon as you turn 
on your computer. When you enter a com- 








mand in direct mode, BASIC interprets 
the line and executes the machine lan- 
guage code for that command. After the 
command has executed, the microproces- 
sor returns to the main loop of the BASIC 
interpreter. 

If you switch out BASIC ROM while 
in BASIC—by entering POKE 1,PEEK(1) 
AND 254—without first copying this 
ROM to the underlying RAM, the micro- 
processor still tries to go back to the main 
loop of the interpreter when it finishes ex- 
ecuting the POKE. The problem here is 
that the main loop of BASIC, which was 
stored in the ROM that you switched out, 
is no longer visible to the microprocessor, 
Whatever is in the RAM beneath the 
ROM is what gets executed. 

In your case, a 0 happened to be in lo- 
cation 42115 (the beginning of BASIC’s 
main loop), The microprocessor interpreted 
the 0 as a BRK and executed the warm- 
start routine, Since this routine des in 
Kernal ROM, the microprocessor is able to 
execute it, 

The warm-start routine resets sever- 
al key memory locations (including loca- 
tion 1) to their default values. Since 
BASIC ROM is visible by default, it was 
turned back on by the warm start. To you 
then, it appears as though BASIC was 
never switched out. 

Entering POKE 1, PEEK(1) AND 253, 
on the other hand, locked up your ma- 














chine. Since this POKE also turns off the 
Kernal ROM, the warm-start code is no 
longer available to the microprocessor for 
execution. 





Kernal Routines from BASIC 


I found the following routine on page 
290 in the Commodore 64 Programmer's 
Reference Guide. It positions the cursor 
using assembly language: 

LDX #10 

LDY #5 

cL 

JSR PLOT 


Is there a way to emulate this rou- 
tine in BASIC? 


Mark Timm 
Franklin, WI 


PLOT is a Kernal routine accessed 
through location 65520 which reads or 
sets the cursor position, depending on the 
condition of the carry flag. If you clear the 
carry flag (usually with a CLC instruc- 
tion—for CLear Carry) prior to calling 
PLOT, it locates the cursor in the screen 
position specified in the X and Y registers 
Screen rows are numbered 0-24, and col- 
umns are numbered 0-39. Thus, your ex- 
ample positions the cursor in the sixth 
column of the eleventh row. 

The same effect can indeed be accom- 
plished from BASIC. Instead of calling 








PLOT with a JSR instruction (Jump to 
SubRoutine), you must use the SYS com- 
mand. BASIC's SYS command obtains the 
values for the microprocessor’s internal 
registers (namely the accumulator (.A), the 
X and Y registers, and the status register 
(.P)) from four memory locations, Location 
780 serves as a storage area for the accu- 
mulator; locations 781 and 782 store val- 
ues for the X and Y registers, respectively; 
and location 783 stores values for the status 
register (.P). The status register contains a 
series of seven flags used by the micro- 
processor. Among these is the carry flag. 

So, to mimic this machine language 
routine in BASIC, run the following short 
program: 








POKE 781,16 
POKE 782,5 
POKE 783,0 
SYS 65520 
50 PRINT1: REM PRINT 1 HERE 
Lines 10 and 20 specify the row and 
column position of the cursor. (Try some 
other values in these lines.) The POKE in 
line 30 clears all flags, including the carry 
flag. The SYS in line 40 causes the PLOT 
routine to execute, And finally, line 50 
prints the number 1 at the specified 
location. 
For an example of a program that 
PLOT to locate the cursor, see "A 
@ 





uses 
Noisy Cursor” on page 8. 








“Find Red Square” Contest! 


Find Red Square in Moscow and 
enter fo win a 160! trip for two to 
Europe, courtesy of SubLOGIC 
and TWA! See the SubLOGIC 
Product Chart at your dealer or 
write SubLOGIC for complete 
details and contest rules. 


TWA 


ESTERN EUROPEAN TO 


Scenery Disk isso beautiful. to. fly, 
want to make it the centerpiece: 
Scenery Disk collection! This is part, 
foRiV-melelimel@l(e (re Mol’ mrenam Kel 
Red Square. 


This month we say goodbye to Pi 
France. Look closely and you car 
Arc de Triomphe to the right of 1 
Tower. 


On to Germany! We land first at F 
one of the most modern Germar 
Other areas we'll be visiting Incluj 
Munich, Nurnberg and Stuttgart 


Next month we'll finish our tour of 
[O71 aTola Ve lale ll ol(-elel(< mole (eke) 
Moscow! 


Sil hele] (ey 
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ACTION _ = SOLUS 
REPLAY IV THE UITIMATE UNILITIES/BACKUP CARTRIDGE FOR THE 64/128 
+ Action Replay allows you to Freeze the action of any memory Resident Program and make a complete back-up to disk or tape — but 
thats not all... . dust compare these features 


UNIQUE FEATURES: 
LJ WARP 25 


Loads 50K in under 8 seconds!! 


Ya trusts rpg fatere "Wary BE wel’ att 
Siva sane ype kay wil rt a 8 


Rapa 
aati rte 


_] Plus unique Code 
Cracker Monitor 


PLUS SUPPORT 
UTILITIES 


_| Action Replay 
Graphics Support Disk 


ony $14.99 


_] Action Replay 
Parameter Support Disk 


ony $14.99 








(702) 454 7700 caner 7.90 pm) 
6503441417 MCIVW 





ORDERS 1-800-782-9110 (702) 454 7700 
ONLY NOTE: — Technical or any other type of 5.30pm to 7.30pm (Pacific Time) 
Enquiry cannot be answered by the staff and Sat - Sun 


on this number 


DATEL COMPUTERS 


256K SUPEROM EXPANDER 


i Now you can select from any of 8 52K BPROMs instantly 


TOOLKIT wv 





(©) 8 sockets to nooeps upto a S2K EPROM in each, 
2 On board operating aystam ~ no programs 
to load, 


(2) Program your own EPROM using our BPROM 
programmer 


12) No ned to have toads of cartridges ~ Just 
Tanke a glestion from the Superom meni 
5) Deyeory of utes on power up 

J Pully menu driven on power up. 

1 Selec any ltt untr soewary contol, 


) Unique EPROM generator fet wil tala 
ou own programs isl or /6 and turn 
‘Hoi nto avtostart BPROM, (EPROM burner 
fequlmd), 


2 Aovepte ered /27128/27266 EPROMS, 
(1)(0n board unstoppable reset 


onty $49,.99 


oe 


CRUNCHER 


‘+ The ultimate cartridge based program 
compactor 

1 Gorapace by upto SO! 

1D) Mor programs per dak 

J 5 compacting programs on one cartridge 
17 Fos loadine/saving routines ~ works with 
Disk Demon 

(5 Gn even further compact AR TH Mest 

12 250 block file ony function 

(2) Pal DOS apport tnctiding fast format 


onty $24.99 complete 
or $114.99 rom ony 


DUPLIKATOR,.. 


<) opis whole disk in one pas ~ only ona 
drive required! 
‘Malas back up copes in eight sooondsl 
(1) Dupltator isthe fastest, most efficient and 
asec to wis dak copying ayer even 
‘onoatved 
(2 omen compota with 26K on-board rn 
el en oa Be a 
Yo oad, 
|.) Malas mulplo copies fom ono origin 
Full disk veritaton during backup 
procens, 
{ie an nar ee a erry 
29 and upto 40 teks, 
|) fl dis ror chock in eight seconde, 
rl lak verify again ru in teen 
Recon, 
(Amu for cubs, usar groupe at, How else 
‘Gn You cory over 260 daa ou for loos, 
han $200, 


<2) Contes complete with on/off switch and 
Fat button, 
(ited in minutes ~ no soldering wrualy 


ii 
onty $159.99 










‘Turbo Rom II is a roplacomont 
for the actual kernal inside 
‘your 64. It provides superfast 
Toad/save routin 
Ay Loads/Saves most programs at 6-6 times 
Formal pend 

|) Improved DOS support including 10 se¢. 
Termat, 

“Progeimmod tneton key os, 
‘Tiecrary. od, a, 

\_) Return to normal kernal at Mick of a 


ft, 
[Ly TOOPY ~ 260 block ne cope 
2 OAD ~ speci 1/0 loader 


1 Phos me 
Ty fied in minuios — no sidering usally 
‘Pequired. (On some 64's the old ROM may 
have be desoldered). 


ony $24.99 





64™ 


(LA top quality eauy to use BPROM 
programmer forthe 64/128, 

(A Rully menu driven poftwane/handware 
package makes programming/reading/ verifying/ 
copying BPROM's simply tet. 

(Will program 9716, 2788 276A, 27328 

‘and 27256 chipe, 128, 21 on 25 vols, 

(3) Pts into user port for maxim com 
patibility with cartridges /Supwrom Board oo, 

<j Ful feature ryote — all functions 

Goyared including device chook/vurty 

(1 We believe Bprommer 6s the moot com: 
Drehonsive, moot friendly and best value for 
money programmer available for the 64/128, 

<) Ideal companion for Superom Board 
Gartridge development System, our kernal 
fexpanders or indeed aly BRPOM base 
inject, 

1) Comes complete with inatructons 
the cartridge handbook, 


OnLy 
$69.99 compete 


plus 


The ultimate disk toolkit for the 1840/1841 


(A disk toolit is an absolute must for the serious 
isk hackar Tool 1V has mor features than moet 
for sa. 

(C1 DISK DOCTOR V2 ~ Read and write any track. 
‘And sector Including extra and renumbered 

tracks, Repair damaged sectors. Look underneath, 
road errors 


CO) HEADER/GAP EDITOR ~ Decodes and 
splays ALL header information including off 
Tyas and header gap Rewrite the entire header 
‘and header gap, Remumber sectors, Also edt any 
‘octor tal ep, 

1 DISK LOOK ~ Sort directory, Recovar lost 
flea, Dioplay Me otart/end addroaoea, 
Disassemble any Mo program dirytly from the 
disk to SCREEN or PRINTER including 
undocumented opendes, Bait Bam, Much, much 
more, 


onty $39.99 comprere 
sortware ony $19.99 





(FILE COMIACTOR — Can compact machine 
Drograsms by up to 80%, Saves dik apace, 
Corpacted programs run na norma 


(Cl sr DISK COPY — Copy an entire disk in 
2 minutos o lose unin singe 1641, 


(INST FILE COPY — Selective fle copy, Works 
‘ab up ta 6 times normal speed. 


(CV FORMATTER — 10 second format an entire 
isk or format any individual track on half track. 
(Oto 41. Rodetine any of 80 parameters to croats 
6r recreate unique disk formats, 


(C)ERROR EDIT’ Qulokly And and rocrosta all 
‘wad error inading extra and renumbered 
traola or sectors and half traci rom 0 to 41 
yen tvereatas data under errors and llown you 
to redefine any necessary paramtars 


DEEP SCAN BURST 
NIBBLER™ 


1) Metronet eb bbe eatin any, at 
‘ey pee) ue bb i uty a two pa poe 
(afta paca und wpa ata eat 1O41/ 
UnO/487 4/188 at WL Dre 
Nitta prac Conectoad be av dee by 
ata tran We Gk ar es ara ge wre 
tig wh on asda da ecard ty a 
baa ure tort data kn raw OG code ae 
‘ara ele he tne noe ye BA 
etfs oy Un ical) Wal mba pl 4 rac 
Ei'cpy a whe akin under 2 mines) Pal Ino 
Ua Rage pte ~ wage nip te at 
raed ines ~ no eden usally toque 
Fler 4 wast) bed buy pad catia 
‘a ave Pfeil DG ea) Oi be Bee 
rt fe ae a a 


caste onty $1.9,99 


BURST NIBBLER PARAMETER DISIC 


buen ntti ete mint powertl bles aunt ~ tt ven We Dect ke ean) This ik ean ne 
irsnearsspenaly ween fr te preasenechenasinpcals 1 bl Th 


{belle tis ouch ae ‘Debacer fe Gown, Gaunt te Regul wpa 
EASE a neceaty ~ the atc Bret NEbie wl copy BOW of software asm ~ 1 you wane to fete lt, a se 


soos for 


1 EXTERNAL 3.5’ 
DISK DRIVE 


(© Stk arcu ow prota unt ~ oat 6 ng 
(© op unity NPY rey mbar @ Todi nbs 





onto) UNT? #67 
GODS AGCEPEE, LAS VEGAS 


NV 89121 


‘ony $14.99 


Cy sazK 
EXTENSION ® A500 


(© fala ws wtcu cada ck tg 
Susy pug analy a AO al, @ Se n/a, 
wet entch mpm @ Ted mints ~ Ho wlderag es, 
Wi aenar/cok eaten tidal tonal, 
ect @ ase bled to wan tine to 


omy $1 
omy $1) 





6 PD toe snaar 1K ro 
62D terrence 


(0 MIDIMASTER 
® Pull Midi Interface for A800/2000/ 
1000 (Please state model). 
© Compatible with most leading Midi 
packages (ine. D/Music), 


@ Midi In — Midi Outx 3 — 
Midi Thru. 


© Full Opto Isolated 


® No need to p more — Full Midi 
standard, 


omy $49,99 


DATEL COMPUTERS 
3430 B, TROPICANA AVE., 

















MIDI 


0) many musicians, and it's opened the world of mustc ta many computer 
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has put computer technology into the hands 


enphustasts: But gt first glance, MIDE can be a confusing experience, 


Where does a beginner begin? What are: ihe hardware and software 


requirements to begin exploring the MIDI possibilities? These questions 


And more are answered in this exploration of an exciing new world 


that merges music and computing 


MIDI-equipped musician can con- 
trol as many as 16 synthesizers and 
drum machines, but you don’t have 
to govout and buy 16 different syn- 
/ thesigers to get started. Let's take a 
brief look at MIDI, explain some of 
the terms, then see what a 64 or 128 
owner actually needs to make music. 


Do You Speak My Brand? 
Until the music industry adopted 
the MIDI standard in the early 
1980s, each brand of synthesizer 
Spoke its own language. Connect- 
ing two different brands was almost 
impossible. Musicians recognized a 
need for different instruments to 
satisfy their artistic requirements, 
80 manufacturers of electronic in- 
// struments agreed to standardize 
hardware, cables, and sockets, and 
to establish a single protocol for 
transferring musical information. 
Today, as long as’ an instru- 
ment is MIDI-equipped or MIDI- 
compatible, it can communicate 
with any other MIDI device via a 
five-pin DIN cable. Information can 
be sent over any of 16 MIDI chan- 
nels. Each synthesizer, drum ma- 
chine, or other device can be 
assigned a channel, and that device 
will play only the music assigned it, 
MIDI cables carry requests to 
play individual notes for a certain 
/ duration, but they can carry other 
information as well. Almost any 
synthesizer can be programmed to 
‘produce different sounds, or entve- 
lopes, This data can also be sent via 
‘MIDI channels. A synthesizer’ can 
) be programmed to sound like a flute 
while it plays one portion of a tune, 
and then can be Switched to sound 
like a violin a few bars later. Such 








data as timbre, duration, note attack, 
note release, pitch bend, and vibrato 
can be included in a MIDI message. 

Most MIDI devices can be 
daisychained like a disk drive and a 
printer or be connected in other con- 
figurations. The devices have ports 
labeled MIDI IN, MIDI OUT, and 
MIDI THRU, The MIDI OUT port 
transmits musical data to another in- 
strument; a MIDI IN port receives it. 
‘A MIDI THRU port passes data on 
to other devices in the chain. In this 
fashion one musician can control a 
whole studio of synthesizers from 
one master keyboard, 

The music industry didn’t have 
personal computers in mind when it 
established the MIDI standard, but 
computers can easily process MIDI’s 
digital data, A 64 or 128 makes an 
ideal controller for digital musical 
instruments, but a special interface 
is needed to connect the computer to 
@ musical keyboard, drum machine, 
or other MIDI instrument. 


MIDI Interface Card 
Technically, MIDI transmits data in 
a serial mode, but you can’t use 
normal serial hardware such as a 
modem to handle MIDI infor- 
mation. MIDI sends its musical 
messages at 31.25 kilobaud, consid- 
erably faster than the 300-, 1200-, 
or 2400-baud rates employed by 
most modems. A MIDI interface 
card, which plugs into the Commo- 
dore expansion port, handles the 
necessary signal conversion. 
Passport Designs makes a fam- 
ily of MIDI products, and its inter- 
face is practically an industry 
standard, One model comes with 
additional input and output ports 


for synchronizing a tape recorder 
and a drum machine, in addition to 
its conventional MIDI IN and MIDI 
OUT sockets, It sells for $199.95, 
Another version, retailing for 
$129.95, has a separate syne port 
for a drum machine only, 

Sonus is another company 
with a full line of MIDI products for 
the 64 and 128, Its basic interface 
retails for $85, and it comes with 
one IN and two OUT ports. Sonus 
also makes an interface with a tape 
sync that sells for $149. 


Keyboard/Synthesizer 

Once you have your 64 or 128 con+ 
nected to a suitable interface, 
you're ready to plug into the world 
of electronic music, The interface it~ 
self, however, is not a stand-alone 
device. It won't let you play a note 
without an external musical syn~ 
thesizer or keyboard, You'll need 
two MIDI cables connecting the 
computer and the keyboard. Musi; 
cal notes are sent on one cable from 
the keyboard to the computer for 
processing, then are returned on 
another for playing. 

While there are only a few MIDI 
interfaces for the 64 or 128, you'll 
find’ scores of MIDI-compatible key- 
boards in music stores or music cat: 
alogs. Prices range from about $100, 
to several thousand dollars, 

“We don’t really recommend 
{specific] keyboards since there are 
so many manufacturers,’ says Jeany 
nie Ditter, Passport’s director of, 
marketing. “Our interface works 
with any MIDI keyboard. Really, the 
keyboard selection depends on the. 
person’s needs, how much money 
he’s willing to spend; and whether 
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) $))? MIDI and the Musician + )°) 


There's a battle being fought over MIDI, and 
‘over electronic music in general. Some musi- 
cians think it's the best thing that's come 
along in ages. Others think that it's the worst. 
Naturally, many musicians are fascinated with 
the latest equipment, all rack-mounted and in- 
terconnected, but how do those marvelous 


‘computer 

and electronics hobbyist, so it was 

I Nee ae erat ks Sev- 

Bra eats ooo a a interface to con- 
my Commodore 


64 to an electronic key- 
Poa ta Korg OWV-5000), to be able to 
understand what MIDI was all about. 


From my experience, | can say that MIDI 
is definitely not for all musicians. It is for the 
‘experimenter, the creator, and the adventur- 
er. If you happen to be a patient, gadget- 
oriented musician, you may find yourself in 
‘seventh heaven. 


a Matter of Taste 


put Purists—the 
acoustical addicts—who disdain anything 
electronic, even between them. 
and the ears of the audience. These people 
would no more coddle a Casio than they 
would stick their hand in an alligator's mouth. 

Into the second group, put the electric 
guitarists and like instrumentalists. Their mu- 
‘sic is generated acoustically but must be am- 
plified, and is usually modified, electronically. 

The third group consists mostly of those 
people who actually generate sounds elec- 
tronically. They may be the keyboardists in 
rock bands. They can't play a lick until their in- 
struments are rack-mounted, touch sensitive, 
frequency modulated, phase-shifted, MiDied 
and split-ear amplified. 

In the last group are the creative and ad- 
venturous experimentalist musicians. It's well 
documented that interest in and 
music (and sometimes math) go hand-in- 
hand. Since you're reading this magazine, 
you may fall into this cat 

What does MIDI offer the musician? 


Larry Cotton 


What's the first step? Easy: Just look on your 
instrument for a little round jack that says 
MIDI. No, there won't be one on the back of 
your Steinway or at the end of your clarinet. 
And just because it's a Yamaha doesn't mean 
it's a DX7. Butif it says Casio or Roland or any 
of a multitude of other names, there’s a good 
chance that you already own the biggest part 


of your investment in MIDI. 
Although just about every imaginable in- 
strument has been MiDied the hu- 


man voice), the most commonly MiDied 
instrument is the electronic i. The 
older keyboards—synthesizers—had no 
MIDI jacks. Today all but the least expensive 
machines are MIDI- 

Some even feature sampling, 
which digitally records a short segment of any 
sound that can then be played back under 
either manual or computer control. At the low 
end are Casio's miniature sampling key- 

less 


boards, which can be 

$100, Unfortunately MIDI is not featured. 
‘The quality of the sampled sounds pro- 

duced by the best machines begins to rival that 


In this month’s feature, Tom Netsel says 
that the music industry never envisioned the 


signed to 
be controlled by another keyboard or exclu- 

‘sively by the computer. 
Also MiDlable are reasonably priced 
drum , Most of which fea- 


instrument. 
The next thing to do is read an article or two (or 
‘even a book) on the subject so you'll have a 
better feel for what you're about to get into. 
And please give thought to whether you're one 
of the purists who can't tolerate the idea of a 
transistor getting in the way of Tchaikovsky. 


If you've successfully hurdled all these 
‘obstacles, turn to your 64 or 128. Just plug an 
interface into the user port, run a cable from It 
to your MIDI keyboard or other instrument, 
stick the appropriate software disk into the 
drive, and you're in business, 

Must you have a computer to get into 
MIDI? No, But to enjoy MIDI you must have 
either a stand-alone sequencer (it plays the 
MIDI instrument by itself), another MIDI instru- 
ment (one controls the other), or a computer 
(it can do many things in addition to playing 
the instrument—see the accompanying article). 


Beyond Muscle and Brain 

How do MiDIed electronic instruments 
sound? The same way they did before MIDI. 
Only faster. Or richer. Or stranger. With MIDI, 
@ musician can begin to explore ideas and 
sounds that are impossible to create with hu- 
man muscle and brain cells. 

For instance, the human hand can reach 
only a little over an octave on a keyboard. A 
MiDied electronic keyboard can often play up 
to eight notes simultaneously, stretching from 
its very lowest to its very highest. It can play 

“The Minute Waltz” in a few seconds. The hu- 
man imagination is its only limit. 

If you liked your keyboard or other elec- 
tronic instrument before MIDI, chances are 
you'll love it with MIDI. In my opinion, a com- 
puter and electronic instrument MiDied togeth- 
er go far beyond simple sequencing. A 


computer, 
ble of creating random patches (customi 
sounds) that the musician simply had never 
dreamed of. Ane the Ome 8 Very vee 
3K library 

these patches for easy and fast retrieval. 

|, for one, ont pelos Heat dectone ins 
struments will ever replace acoustic ones, 
do behave that coriputere- and] AMI iter: 
faces will ever replace musicians, The human. 
being must still be there to furnish the creative 
‘spark, the enthusiastic imagination, and the 
patience to take advantage of what MIDI has to 
offer. There will always be needs for the com- 
plementary technologies, and the human being 
‘will be right there to push them all to the limit: 





he’s going to be performing profes- 
sionally or just in the home.” 

Dr. T’s Music Software is an- 
other firm that offers a full line of 
software for the electronic musi- 
cian. Dr. T spokesman Jeff Pucci 
says many people getting started 
with MIDI select the Casio CZ-101 
keyboard. 

“That's a pretty good multi- 
timbral synthesizer for under 
$300,” he said, ‘It can play four in- 
strument voices simultaneously, so 
you're getting a lot for your money. 
That's really a good first choice.’” 
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Sonus sales manager Erin Ax- 
tell agrees. ‘For a first-time user, 
usually Casio gets chosen because 
it’s inexpensive and it’s MIDI- 
compatible.” 

Axtell says any MIDI keyboard 
will work. It just depends on what 
you want, and how much money 
you're willing to spend. Most key- 
board makers offer a wide line of 
products, ranging from entry-level 
to professional-quality. “Yamaha 
and Roland are the hottest-selling 
brands on the market right now. 
Roland’s D-50, Yamaha’s DX7 II- 


FD, and the ESQ-1 and ESQ-80 
from Ensoniq are all popular,” Ax- 
tell said. 

Very few electronic keyboards 
have built-in speakers. Most have a 
jack for headphones, but you'll 
need an external amplifier and 
speaker system for normal listen- 
ing. If you don’t need the power to 
rattle the rafters in a concert hall, a 
home stereo system is adequate for 
most amateur musicians, 

You don’t necessarily need a 
computer to produce different 
voices—sounds or timbres—on 





some electronic keyboards. These 
voices, mimicking violins, trum- 
pets, oboes, flutes, and other instru- 
ments, may be referred to as presets, 
and they are permanently stored in 
the keyboard’s memory, which is 
similar to a computer’s ROM. If, 
however, you want to see what 
MIDI can do, hook a keyboard to 
your 64 or 128, and get some soft- 
ware to put all the pieces to work. 


Sequencers 
A glance through the accompany- 
ing ‘‘Buyer’s Guide” finds more 
than 30 programs that utilize MIDI. 
Selecting the proper software can 
be confusing for someone just start- 
ing. The experts at Dr. T, Sonus, 
and Passport all recommend a se- 
quencer as a beginner's first soft- 
ware purchase. 

A sequencer turns your 64 or 
128 into a multitrack recording stu- 
dio. You can record a melody on 
one track, record a bass line on an- 
other, lay down additional melodic 
lines on still more tracks, then play 
them all back in sync. Most se- 
quencers offer 64 and 128 owners a 


minimum of eight tracks. 

A sequencer is similar to a tape 
recorder in that it offers such fea- 
tures as fast forward, reverse, and 
rewind, but it’s much more versa- 
tile. If you make a mistake while re- 
cording with a tape recorder, you 
have to start again from the begin- 
ning. A sequencer lets you correct 
the mistakes, editing individual 
notes. What's more, it lets you 
make other changes that would be 
impossible with a tape recorder. 

Once the composition has been 
recorded, you can play all the tracks 
back together. Music can be played 
faster or slower without altering the 
pitch or key. If you decide your com- 
position would sound better in an- 
other key, you don’t have to scrap 
your previous efforts. The sequencer 
can change the key for you. It can 
also change the time signature or 
tempo with just a few keystrokes. 

If your talent on the keyboard 
is limited, you can enter notes one 
at a time, editing the tempo, pitch, 
velocity, and duration of each note. 
Then play back the final mix at any 
speed you like. Most sequencers of- 


fer this step-time form of entering 
notes from the computer keyboard, 
as well as realtime entry from the 
synthesizer keyboard, 

Just like a word processor, mu- 
sic software lets you cut and 
paste—only you're working with 
musical sequences rather than 
words. Copy them, append them to 
themselves, or move them any- 
where in the composition. You can 
even switch sequences from one 
channel to another. 

If your timing is a little off, 
most sequencers can automatically 
correct tracks to any resolution 
from quarter notes to thirty-second 
notes. This is often referred to as 
quantizing. Time signature changes 
can also be inserted anywhere 
within a sequence, 

Now that we've seen what a 
sequencer can do and the musical 
control it can provide, let’s take a 
look at some of the popular titles 
available for the 64 and 128, 


Master Tracks. Passport’s Jeannie 
Ditter recommends her company’s 
Master Tracks sequencer. “It’s our 
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most popular for the Commodore,” 
she said. “This is a versatile se- 
quencing program that allows you 
to do a lot of different MIDI appli- 
cations. It’s easy to learn, but it’s 
not something that you'll get bored 
with or quickly outgrow.” 

Master Tracks is a 16-channel, 
full-featured sequencer that allows 
you to compose, arrange, and or- 
chestrate with one program. It re- 
tails for $249.95. Master Tracks Pro 
($299.95) is an enhanced version of 
the sequencer for the Commodore 
128 that takes advantage of the 
128’s larger memory. 


MIDI/8 Plus. Passport also offers 
an eight-channel sequencer called 
MIDI/8 Plus. It sells for $149.95. 
“It’s a very simple program that 
doesn’t have the features of Master 
Tracks,” Ditter said, “but it costs 
less. If people are seriously interest- 
ed in music, we often suggest they 
get right into Master Tracks, because 
it does allow them to have more 
options.” 


Keyboard Controlled Sequencer. 
Dr. T offers the Keyboard Controlled 
Sequencer for the 64 ($149) and for 
the 128 ($225). Both permit editing 
and structuring of music entered by 
computer or synthesizer keyboard 
in realtime and step-time entry. Se- 
quences can then be chained to- 
gether in songs. The 64 version 
holds 3,500 notes and 35 sequences. 
The 128 version stores 12,000 notes 
and 126 sequences. The 128 version 
also allows you to split the synthe- 
sizer keyboard, allowing you to as- 
sign the upper and lower half to 
different MIDI channels. 
GlassTracks, At Sonus, Erin Axtell 
recommends the GlassTracks multi- 
functional sequencer, ‘‘GlassTracks 
is easy to understand, but it’s a very 
professional program,” she said. “I 
suggest it for any beginner, It’s per- 
fect for them.” GlassTracks offers 
standard controls, with fast forward/ 
reverse, assignable channels, and 
names for each of eight tracks. 
Tracks can be transposed, erased, 
and quantized to the nearest thirty- 
second, sixteenth, or quarter note. 
Its suggested retail price is $69.95. 
Super Sequencer. Sonus also offers 
a Super Sequencer series for the 64 
($189.95) and the 128 ($229.95). 
This is a multifunctional, profes- 
sional line of MIDI recording soft- 
ware offering 16 sequences, 8 
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tracks, and other advanced editing 
features. It also has a built-in librar- 
ian (see below). 


Patch Editor/Librarians 

Many keyboards come with sounds, 
or presets, built in, but MIDI soft- 
ware can also create violin, piano, 
flute, or other effects. These pro- 
grams, or librarians, facilitate the 
storage of the synthesizer parame- 
ters so they can be easily and quick- 
ly installed. Such MIDI-produced 
sounds are often called patches, a 
term stemming from the early days 
of analog synthesizers, when patch 
cords were needed to program the 
effects. To add to the confusion, 
these same programs are often 
called patch editors or patch 
editor/librarians. 

If you have a Casio, a Yamaha, 
or another popular synthesizer, 
there are specific librarians avail- 
able for your keyboard. They let 
you create, edit, and store patches 
on the CZ-101, DX7, or other spe- 
cific keyboards. Some programs in- 
clude hundreds of preprogrammed 
patches. You may want to consider 
a librarian, but it’s not required 
software for MIDI beginners. 


Scorers 

Many musicians feel it’s important 
to have a hardcopy of their music. 
After entering a composition, edit- 
ing and recording it with a sequenc- 
er, and playing it through a 
synthesizer, they like to have the 
option of sending the final product 
to a printer. Once again, as with li- 
brarians, you don’t have to have 
this type of software to get your feet 
wet with MIDI, but it is useful to 
some beginners. 

Passport offers The Music Shop 
for MIDI, retailing for $149.95. It 
lets you compose, edit, and print 
sheet music in piano, single staff, or 
quartet formats. Eight voices can be 
assigned to four different MIDI 
channels or keyboards. The Music 
Shop doesn’t have the sequencing 
capabilities of MasterTracks, but 


MasterTracks doesn’t have printout 
capabilities. The Music Shop for 
MIDI requires a graphics interface 
and printer that can emulate Com- 
modore graphics. 

Dr. T has Convertafile Plus, a 
utility program that converts Key- 
board Controlled Sequencer or 
MIDI/8 Plus files for use with Pass- 
port’s Music Shop for MIDI. It han- 
dles transcription for sequencer 
files, automatic transposition of 
parts, and autocorrection. The pro- 
gram retails for $75, 


Determine Your Needs 

MIDI is not a computing activity 
that will interest everyone. To be 
accurate, it’s a musical activity that 
uses a computer as a creative tool. 
Related software tends to be more 
expensive than games and other 
forms of computer entertainment, 
and keyboards can be a major pur- 
chase. If you have an interest in 
MIDI, ask yourself a few questions 
before deciding on a keyboard or a 
sophisticated sequencer. 

How much of a beginner are 
you? Are you new to computers, 
music, and MIDI, or are youa 
trained musician who's just starting 
to make electronic music? Do you 
plan to play professionally or just 
for the enjoyment of it? Would you 
be content with a basic, no-frills 
keyboard, or do your skills and 
standards require professional- 
quality instruments? 

Finally, how’s your budget? 
You may want a top-of-the-line syn- 
thesizer, but can you justify the ex- 
pense? MIDI software (and hard- 
ware) is specialized and still has a 
hefty price tag compared to other 64 
and 128 software. If you just want to 
plunk out a few tunes, MIDI may be 
musical overkill. Exploring the pos- 
sibilities of Commodore's SID chip 
could be a more economical release 
for your musical talents. 

If you're still determined to 
turn out MIDI masterpieces, you'll 
need, in addition to your 64 or 128, 
a keyboard/synthesizer to produce 
the notes, a sequencer to control 
and record your creations, and a 
MIDI interface to connect the com- 
puter to the keyboard, and that’s it. 
Start with this simple setup; then 
check out the accessories, 

Of course, a dash of talent 
doesn’t hurt, but you have to sup- 
ply that. 


Talk Is Cheaper 


Even as manufacturers of speech- 
synthesis and voice-recognition 
products debate the future of the 
Commodore 64 market, they con- 
tinue to attempt to improve per- 
formance while lowering prices. 
Although there have been no recent 
major breakthroughs in technol- 
ogy, most of these companies have 
brought their prices in line with an 
average 64 user's budget. 

Following the introduction of 
the 64, several companies decided 
to take advantage of the computer's 
SID (Sound Interface Chip), which 
was—and, for some purposes, still 
is—considered one of the indus- 
try’s best. Commodore itself re- 
leased a voice-synthesis module 
called the Magic Voice, which has 
been discontinued for some time. 
Most of the other speech-synthesis 
companies have either ceased to ex- 
ist, have merged with each other, or 
like Commodore, have discontin- 
ued their products for the 64, Some, 
though, have forged on, 


Three Parts of Speech 
Currently there are three basic 
types of speech technology avail- 
able for microcomputers. Speech 
digitizers convert spoken words 
into a series of numbers, which can 
be read by the computer and then 
sent to the sound chip to be re- 
played. Speech synthesizers divide 
words into phonemes (the smallest 
meaningful sounds in a language). 
The phonemes are then linked to- 
gether to form audible words. Fi- 
nally, there’s voice recognition, 
which enables the computer to digi- 
tize the user’s voice and then match 
the digital pattern of a word to a 
previously digitized command. The 
computer hears and interprets the 
word, and then it performs the des- 
ignated function. 


Chip Off the Old Block 

Covox has been marketing its Voice 
Master system for several years. 
This speech-digitization and voice- 


Mickey McLean 


Speech-synthesis 
and voice-recognition 
products for the 64 
and 128 are now more 
affordable than ever— 
and there's a lot 
to choose from. 





Voice Master Junior is a low-cost alter- 
native for 64 users. 


recognition product allows users to 
record and play back speech, to 
train their computer to recognize 
words, and, with Speech Construc- 
tion Set, to edit both the pitch and 
amplitude of digitized voices. The 
Voice Master package (which in- 
cludes Speech Construction Set anda 
headset) has a suggested retail price 
of $89.95. 

Last year, Covox released a 
lower-priced, scaled-down version, 
the Voice Master Junior. It’s physi- 
cally smaller than its predecessor, 
but has many of the same func- 
tions. The Jr. doesn’t include a 
headset or the Voice Master's fun- 
damental pitch and amplitude ex- 
tractor circuitry, and it won't work 
with Speech Construction Set soft- 
ware. The suggested retail price is 
$39.95, and an optional headset mi- 
crophone can be purchased for $10. 

Covox vice president Brad 
Stewart said that his company real- 
ized that a lower-priced alternative 
was necessary for Commodore users. 

“We wanted to keep the 64 
market open and make it more at- 
tractive, and we did that by tweak- 
ing performance and lowering the 
price. We've now got it down to 
about the same price level as 
games,” Stewart notes. 

Another company that has 
been in the voice-technology busi- 
ness for several years is Votrax. 
Their Votalker 64 is a speech syn- 
thesizer that fits into the 64’s expan- 
sion port and uses 8K of memory. It 
originally sold for $99.95, but re- 
cently the price was reduced to 
$59.95. Users type in the words they 
want the computer to say. The vol- 
ume, pitch, and the speed of the 
speech can then be altered. 


Educational Speech 

Hearsay has produced most of its 
speech-technology products for 
educational use. The company’s 
software is designed to be used 
with the Hearsay 1000, a combina- 
tion speech-synthesis/voice-recog- 
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nition peripheral. The 1000 plugs 
into the 64’s expansion slot and 
comes bundled with software that 
allows user-programmed speech. 
The standard Hearsay 1000 is sold 
in mass market stores such as Toys 
“R” Us, and retails for $59.95. The 
Swift Load version, which allows 
users to load the software five times 
faster than the standard version, 
sells for $79.95. 

Two of Hearsay’s educational 
programs are Aqua Circus and Think 
Bank; both require the Hearsay 
1000. Hearsay is also planning to 
release this summer The Intelligent 
Talking Terminal, which can be 
used with databases and online and 
bulletin board services. 

Michelle McNamee, regional 
sales director for Hearsay, says that 
they‘re working with several large 
software publishers on approxi- 
mately ten new voice-interactive 
titles to be released by the end of 
the year. 

In addition to working with its 
own specially designed software, 
the Hearsay 1000 can also work 
with other software, Users are able 
to issue verbal commands in text 
adventures such as Zork instead of 
typing them in, 

Fearn & Music also markets a 
sound-digitizing product. The SFX 
Sound Sampler is manufactured in 
England and was picked up for dis- 
tribution by Fearn & Music last No- 
vember. The sampler allows users 
to edit sounds and shift pitch 
(which can make a male voice 
sound like that of a female, and vice 
versa), Fearn & Music has also 
dropped its price of the Sound Sam- 
pler from $127 to $89, 

Another recent release—and a 
rather unique product—is Access’s 
Lip Stik Plus, a headset/mouth- 
piece that detects sounds which ac- 
tivate the fire button used in action 
games. Since the product reacts to 
any sound, it cannot perform voice- 
recognition functions. The original 
Lip Stik is packaged with the 3-D 
space-flight simulator Echelon and 
can be used with that program 
only. The Lip Stik Plus can be used 
with most games that use a fire but- 
ton. It retails for $24.95. 


More Than Entertainment 

Speech-synthesis and voice-recog- 
nition products can provide users 
with more than just software en- 
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hancements. Handicapped users 
can benefit greatly. 

Visually and physically dis- 
abled individuals can make key- 
board entries verbally instead of 
manually. Using software such as 
Covox’s Speech Construction Set, 
people with hearing disorders can 
receive visual feedback detailing 
where their voices rise and fall. 

Michelle McNamee of Hearsay 
offers one example of a handi- 
capped individual who uses their 





The Hearsay 1000 is a speech-synthesis/ 
voice-recognition device that plugs 
directly into the 64's expansion port. 


product, ‘“We know of a gentleman 
in California, who is a paraplegic 
and whose wife is blind, that uses 
our products. He also works with 
schools for the handicapped with 
our unit.” 

McNamee adds that the Hear- 
say 1000 is also being used by 
many blind computer enthusiasts 
in Britain. 


Talking Crystal Ball 
The future of voice-synthesis and 
-recognition products for the 64 de- 
pends, of course, on the future of 
the Commodore 64 market, as well 
as whether software developers 
produce programs that require the 
technology or take advantage of it. 
Electronic Speech Systems 
does speech-production work for 
software companies as well as for 
the toy and automotive industry 
and the military. They designed the 
digitized speech for games such as 
Impossible Mission and Ghostbusters. 
They have also worked with manu- 
facturers of Nintendo game car- 
tridges, which, according to 
company president Fred Chan, is a 
growing market for the company. 
“Speech and sound add a lot to 
a game,” Chan says. “The Nintendo 
games we've worked on are big sell- 
ers. Software companies should be 


doing the same thing. It could add 
10 to 15 percent in sales.” 

Even as speech products be- 
come more affordable for Commo- 
dore users, many companies are 
spending their time developing ad- 
vanced speech technology for IBM 
PCs and compatibles. 

Covox, for instance, has re- 
cently released a new line of voice 
products for the PC and plans sev- 
eral new releases later this year. 

Although the company has not 
abandoned the Commodore mar- 
ket, Covox’s Brad Stewart says they 
realize that their future may lie 
elsewhere. “The user base of the 64 
will level off and our sales should 
do the same. 

“Voice recognition for the 64 is 
really just a curiosity,” Stewart 
notes, ‘You really need a bigger 
machine [more memory] to do it 
properly.” He adds that PC users 
tend to spend a little more money, 
which is another reason why that 
market may be more viable, or at 
least more attractive. 

On the other hand, Hearsay is 
confident in the Commodore 64 
market and continues to develop 
products to take advantage of the 
SID chip. 

“The 64 has just risen again,” 
says Michelle McNamee. “I've seen 
it in our sales figures since October 
of last year.” 

She adds another reason for 
the renewed success of the 64. 
“There are a large number of peo- 
ple with small children, and the 64 
is easy for children to learn to use.” 
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Zig-Zag and 
Plasmatron 


I spend most of my waking hours writ- 
ing, thinking, programming, and pray- 
ing for peace, so I don’t think I have to 
apologize when I break away for a few 
minutes of harmless vicarious violence. 
Second-hand thrills have a healing 
quality. That’s why war movies, video- 
games, and pornography are so popu- 
lar. Who’s to say whether playing a few 
videogames might have soothed Hit- 
ler’s feelings after being rejected from 
art school? He might not have em- 
barked on his second career. A clear ex- 
ample of the benefits of videogames is 
the fact that we have not engaged in a 
major European conflagration since the 
introduction of Pong in the midseven- 
ties. Mere coincidence? I think not. 





Zig-Zag 


This review concerns two recently 
released action games. Alien-blasters 
would be a more accurate term. Blast 
the alien in whatever form. Eradicate 
the enemy. Crush the opposition. It’s 
better to do it on the computer screens 
than in the streets, 

Tired of the arms race? Politicians 
giving you a pain? Get lost in the Matrix 
of Zog by playing Zig-Zag. To set the re- 
cord straight, the game is Zig-Zag and 
the company is Spectrum Holobyte, al- 
though I found the package labeling a 
little confusing on this point. 

The game itself leaves no room for 
doubt: Creators Antony Crowther and 
David Bishop have produced a fascinat- 
ing alter reality. The Matrix of Zog will 
remind you of a cross between Ver- 
sailles and a 1930s bijou. Colors flood 
the screen. The animation is incredible, 
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and gameplay will call upon a unique 
set of skills. 

Flashy graphics wait for you at ev- 
ery turn, The score screen will knock 
your eyes out. And before the game is 
even played, you’re treated to a frontis- 
piece screen, a display that is simply 
gratuitous glitz. The credits crawl as if 
at the beginning of a movie, with men- 
tion of such functions as key grip and 
lighting. And the credits are accompa- 
nied by a catchy techno-rock score. 
What a crew of programmers! My hat is 
off to them. 

The game itself will probably 
sound a mite ridiculous. But don’t let 
that dissuade you. This game is special. 

Leave tiresome physics behind 
when you enter the Matrix. Zog plays by 
his own rules. You won't be able to steer 
your spacecraft. You can sidle left and 
right, rise and fall, but you can only go in 
one direction, unless you hit one of the 
prisms helpfully scattered among ran- 
dom nooks and corners, (I warned you 
this was going to sound a little strange.) 

A prism (they look a little like or- 
ange coal scuttles) allows you to turn at 
a right angle. If you hit a wall, you 
bounce off undamaged and proceed in 
the opposite direction. The hallways 
swarm with zigzags, homers, drifters, 
attracters, bouncers, corkscrews and 
cubes. It sounds like a bar on the water- 
front. But it doesn’t matter what they're 
called—it’s always open season, Exter- 
minate them. 





As they bite the dust, you'll accrue 
cash (yen, hopefully, in the light of 
worldwide moneymarket trends) with 
which you can purchase helpful items 
like shields, smart bombs, maze maps, 
x-ray vision, and so on. There is so 
much more, I could go on for a long, 
long time. 








Zig-Zag is a game that will draw 
your eye from a long distance away. 
You'll find yourself helpless in its grip. 

The second game | played recently 
is Plasmatron from Avantage. Plasma- 
tron is a spectacle. As you pilot your jet 
through throngs of attacking fighters 
from the hostile empire, you must fight 
also against the distraction of the fine 
graphics. Nearby buildings, mush- 
rooms, ferns, and the like rush by much 
faster than distant objects (which in- 
clude a Saturn-like ringed planet), lend- 
ing a disturbingly realistic third 
dimension to the game. 


anh 


Plasmatron 


If I have any objection to this and 
other similar games (like Sanxion and 
Delta Force), it’s that the fighter ought to 
move through this third dimension as 
well. As itis, your fighter and the aliens 
are on a single plane in the foreground, 
which usually seems somewhat re- 
moved from the background. 

The background isn’t just pretty 
pictures, though. The factories are on 
fire and their smoke represents a major 
hazard. Call the EPA later—you won't 
have time to think when playing Plas- 
matron (which is probably the highest 
praise that can be given to an action 
game). 

—Robert Bixby 
Zig-Zag 
Spectrum Holobyte 
2061 Challenger Dr. 
Alameda, CA 94501 
$24.95 


Plasmatron 

Avantage 

20813 Stevens Creek Blvd. 
Cupertino, CA 95014 
$14.95 











PaperClip III 


The Commodore 64 has never been 
short of quality word processing soft- 
ware. WordPro 3 Plus almost coincided 
with the release of the 64, and it estab- 
lished a surprisingly high initial quality. 
Following WordPro 3 Plus came a host 
of other entries, from Paperback Writer 
through Word Writer through Fleet Sys- 
tem through SpeedScript through Geo- 
Write Workshop. Almost amazingly, all 
were of a very high quality. 

But the best one of all was Paper- 
Clip, Filled with features and thorough- 
ly professional, PaperClip became the 
main word processor for a great many 
64 users. Omni went so far as to call it 
the Cadillac of word processors. Almost 
by itself, it established the Commodore 
64 as a machine worth using even by 
the serious writer. It couldn’t do any- 
thing about the 64’s lack of an 80-column, 
mode, but it made up for it with a 
wealth of flexibility. Several versions of 
the package, and finally a PaperClip II, 
expanded its initial capabilities. 

When Electronic Arts acquired the 
Batteries Included line, 64 owners 
hoped that PaperClip would be among 
the products saved from extinction. It 
was more than just saved; it was injected 
with a new youth. PaperClip III has now 
been released, and it’s still the Cadillac. 

Inside the package are a 200-page 
manual and two double-sided 54-inch 
disks. The two disks are an important 
feature: One contains a version for the 
64, the other a version for the 128. On 
the back of the 64 disk is the Dictionary 
disk (for spell checking), while the 
reverse of the 128 disk holds the dic- 
tionary and the printer files. 

What this means, of course, is that 
former 64 users who have upgraded to 
the 128, but who have kept their 64, have 
actually purchased two new products. 

Experienced PaperClip users need 
not fear extensive revisions, Except for 
some useful upgrades, the program 
works exactly as before. For those new 
to the program, Batteries Included has 
added a series of menus, accessible 
through the function keys. These 
menus bring PaperClip III up to the 
ease-of-use standards set by menu- 
driven word processors such as Geo- 
Write Workshop and Pocket Writer. 
Menus, of course, have become the sine 
qua non of all productivity software, 

There are several menus, but the 
main menu, summoned by the F7 key, 
is typical. When the main menu is on 
the screen, the cursor keys highlight 
one of several options. New Document 
erases the text in memory (PaperClip III 
does not allow multiple windows) and 
lets you start over. Both Load Docu- 
ment and Save Document are self- 
explanatory, while Disk Directory 





brings the directory onto the screen. 

From this menu you can also 
search text, search and replace text, get 
a video preview of the document, print 
the document, invoke the spelling 
checker, and move to the telecommuni- 
cations module. Also, from here you 
control margin settings and justifica- 
tion, When you have everything set, 
you can save the configuration to disk. 

All of these commands are accessi- 
ble through the keyboard as well. Expe- 
rienced PaperClip users will recognize 
the Save command as Control-S, the 
Directory command as Control-0 (or 
CTRL-1), the Video Preview command 
as Control-V, and so on. None of the 
menu commands replace the old key- 
board commands; they simply make 
learning the system much easier. 

What does PaperClip IIT have to of- 
fer? A number of things. First, it’s a 
postformatting word processor, which 
means that the document does not ap- 
pear on the screen as it will on the 
printed page. This may seem like a dis- 
advantage, but in fact it allows total 
control over what the document will 
look like. It also doesn’t slow down 
your typing fingers, as many WYSIWYG 
word processors do. 





Second, it offers thorough flexibili- 
ty. Through a series of formatting com- 
mands, all of which follow the check- 
mark symbol, you can control margins, 
page length, pitch, spacing, header and 
footer information (including multiple- 
line headers and footers), page number- 
ing (including upper- and lowercase 
Roman numerals), chapter numbering 
(again with Roman numerals), and 
linking several files together to create a 
text longer than memory allows. 

Speaking of this, the price of more 
features is less available memory: Com- 
modore 64 in-memory documents are 
now down to 202 lines (from over 800 
in the earliest PaperClip versions), 
while 80-column 128 documents are 
499 lines. 

Check-mark commands include 
such esoterica as interparagraph spac- 
ing (automatic multiple-spacing be- 
tween paragraphs); alternate page 
printing, which allows you to print first 
the odd-number pages, then turn the 
paper around and print the even-number 





Pages on the back; proportional print- 
ing; letter-quality printing; automatic 
paragraph indention; forced paging 
(with conditions); and even outlining. 

What else? PaperClip III lets you 
take the Directory screen and put it into 
text, a useful feature for cataloging 
disks. It has a Global File Copy com- 
mand, available for two-drive owners 
only, which copies all of a document's 
linked files from one disk to another. It 
has one of the most sophisticated col- 
umn manipulation features of any word 
processor for any system, and it allows 
table of contents (but not index) genera- 
tion. The 128 version even has a com- 
mand for stripping hard returns from a 
text file you receive over a modem. 

The telecommunications module 
comes, like the spelling checker and the 
setup and configuration files, by way of 
an overlay that stays out of memory 
until you invoke it. Special features 
here include the recognition of various 
Commodore-based modems (and Hayes 
and other RS-232 modems), dialing 
commands, autolinefeed commands, and 
three transfer protocols, Xmodem CRC, 
XModem, and Punter Cl, The Punter 
protocol is used by some Commodore- 
specific bulletin board systems, 

PaperClip III more than holds its 
own in the rather crowded 64/128 
word processing field. It’s probably the 
least pretty of all such packages, and 
will therefore not appeal to those who 
want their screens to look as good or 
better than their printed documents. 

But for anyone looking to make 
their 64s—and especially their 128s— 
professional word processing stations, 
PaperClip III will satisfy virtually all 
their wishes. I have used word proces- 
sors on mainframes, on the Amiga, on 
the Atari ST, on the Macintosh, and on 
MS-DOS machines, and I still find my- 
self drawn to PaperClip II] on the 128D. 

The program’s first version has a 
couple of bugs, however, First, the up- 
arrow key (the one beside RESTORE) 
does not operate in the 64 version, 
Functionally, this means that putting 
page and chapter numbers in the text 
will not work (they will still work in the 
headers and footers, though). 

Second, the printer test in the 128 
version causes the program to crash; 
the 64 version seems to work fine, how- 
ever. Finally, less a bug than an annoy- 
ance, the CTRL-O combination for 
printer output does not operate in the 
64 version. Instead, you have to print 
by using the menus in the overlays. 

—Neil Randall 


Batteries Included 
Distributed by Electronic Arts 
1820 Gateway Dr. 

San Mateo, CA 94404 

$49.95 
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Power at Sea 


Obviously, the more literary title has al- 
ready been used by Hollywood for the 
still moving, still televised Victory at 
Sea. And there is no doubt that Power at 
Sea has more connotations of arcade 
parlors than it does of history. Yet 
there’s no escaping the fact that Power 
at Sea is a celebration of the gallant 
hours of Admiral William F. “Bull” 
Halsey. Furthermore, I know Accolade 
is feeding me history in small doses— 
and I love it, 

This time it’s the Battle of Leyte 
Gulf, one of the greatest naval confron- 
tations of all time. Admiral Halsey com- 
manded the U.S. Fleet during this battle 
that opened the way for the liberation 
of the Philippines. He dealt the Japa- 
nese Fleet a crippling blow by sending 
Marine units ashore in a successful land 
invasion. The question in Power at Sea is 
whether you can do the same. 

For all practical purposes, you're 
an admiral, although your fleet is small: 
one battleship, one aircraft carrier, and 
one troop ship. But with these vessels, 
you may do wonders. During the initial 
moments of the game, decide between 
carrying a large number of troops or a 
great amount of fuel. 

You'll also have to decide on the 
ratio of fighter planes to bombers. You 
may have many of one or the other, but 
not both. Striking the proper balance is 
one of the key strategic moves, and yet 
the choices can be based on your own 
arcade talents. If you become adept at 
using the big guns to knock out shore 
installations, you won't need so many 
troops; if you're a good pilot, you won't 
be wasting airplanes. 

Go to your flagship’s bridge, which 
is a menu in disguise. At their stations, 
you'll see a radioman, a navigator, and 
damage control and weapons officers. 
When one of them desires your atten- 
tion, he'll turn his head toward you. 
When you query or give orders, use the 
joystick to turn your head (in the fore- 
ground) toward one of them. 

Audible tones alert you to radio 
messages no matter where your atten- 
tion is engaged. Return to the bridge, 
face the radioman, and a summary of 
messages appears on a screen. 

Querying the navigator shifts the 
screen to a map of Leyte Gulf, where 
enemy installations are marked. Since 
you have only 96 hours to break the en- 
emy fleet and successfully invade four 
enemy bases, you'll want to be thought- 
ful about how you set your course. Set 
your rendezvous points, set your speed, 
and the battle is on. 

When danger threatens, you'll 
learn about it from the radioman. Go to 
the weapons specialist, and the screen 
shows several courses of action, with 
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the proper one highlighted. 

Now you're into the arcade part of 
the game. If an enemy battleship is 
near, launch planes to take it out, fight- 
ers to silence its guns, and bombers to 
finish it off. As each plane embarks on 
the mission, you'll be at the controls. 
When a plane finishes its run, you'll 
switch to the next aircraft in line. 

Kamikaze planes made their first 
appearance in this battle; sometimes 
threats will come at you from the air. 
When this happens, man antiaircraft 
guns and try to shoot down the waves 
of attackers. 





To soften an enemy base for inva- 
sion, man the big guns and try to knock 
out the gun emplacements on shore 
before they knock you out, 

As each offensive or defensive ac- 
tion loads, you're treated to a montage 
of images, much as you've seen in mov- 
ies: sailors running to their stations; 
lookouts observing the enemy through 
binoculars; fliers pulling on flight jackets. 

While the success of your actions 
depends upon your joystick skills, the 
final act—land invasion—relies on 
strategy. You'll be told the relative 
strength of the enemy base. From this 
description, you must decide how 
many troops to commit. By toggling 
your joystick, you can select in multiples 
of 100 up to a maximum of 1200 troops. 

While it probably seems easy 
enough to commit the full force to each 
invasion, bear in mind there are several 
enemy bases to be reduced, and even 





victorious U.S. troops are not to be re- 
turned to ship. They presumably are on 
occupation duty or mopping-up 
operations. 

Once troops are committed, you 
can only wait—as commanders have 
done throughout time. Again, a mon- 
tage of images plays about the screen, 
with appropriate sound effects. Now 
and again short messages appear at the 
bottom of the screen: “Sir, we've se- 
cured the beach.” “Sir, we're taking 
heavy casualties.’’ ‘Sir, we need 
reinforcements.” 

If your troops are successful, the fi- 
nal image of the montage will be out of 
context but no less stirring: Marines 
raising the flag on Iwo Jima, an event 
that happened a few months later. 
Their hymn plays in the background, 
and the captured base on the naviga- 
tion map will be reflagged with the 
Stars and Stripes. 

It isn’t always victory, however. 
Your aircraft carrier may be too dam- 
aged by Kamikazes to launch any planes; 
your big guns or antiaircraft guns may 
be too damaged to fire; you may be 
hopelessly run aground; you may have 
no more troops, fuel, or time. You were 
given 96 hours to complete your mission. 
Ifit isn’t accomplished, or if you succumb 
to the enemy, you'll be removed from 
command: The familiar scene on the 
bridge is there, but you aren't, 

Whatever the outcome, the score- 
board shows where you succeeded and 
where you didn’t. Each element of the 
game is considered separately. The pos- 
itive and negative numbers result in a 
numerical score and a rank on the ‘Hall 
of Fame” board. (Privately, | wonder 
why a Commander outranks an Admi- 
ral, but that’s a matter for Accolade to 
sort out.) 

Documentation is slight but com- 
plete. I would have appreciated the 
deeper historical background that Ac- 
colade has traditionally included with 
such games. Graphics and sound, as 
usual, are very good, and the Accolade 
“‘trademark”’ of large foreground 
graphics is evident. 

As an arcade/strategy game con- 
trolled by a joystick, Power at Sea tests 
your mind and reflexes in ways that 
should certainly hold your interest. I 
ask no more of any game. As a means of 
spotlighting a few gallant hours of his- 
tory—reminding us of a time when 
young men in blue dungarees and bag- 
gy khakis held our future in their 
hands—it works. 

Thanks, Accolade, for the memory. 

—Ervin Bobo 


Accolade 

550 S. Winchester Blvd. 
Suite 200 

San Jose, CA 95128 
$29.95 








Hodge Podge 


Children are delighted by simple 
things. Blocks, balls, bright colors. They 
like surprises, too. Hodge Podge by 
Artworx has all these things and a little 
bit more, It offers a way to simplify your 
computer and make that magical toy- 
box accessible to your children. 

Hodge Podge's goal is to introduce 
your children to handling the computer 
keyboard, and to educate them a little 
at the same time. Unlike most games 
which require at least rudimentary 
reading skills, Hodge Podge requires 
nothing more than little fingers and ac- 
tive curiosity, You load up the program 
and then let the child take over. 

There is a programmed response 
for nearly every key on the keyboard. 
When a child begins to press the keys, 
the fun begins, The responses are con- 
sistent and bear some relation to the 
keys that prompt them. For example, 
pressing F will call up a picture of a barn 
and the tune to Old Macdonald's Farm 
followed by—at the appropriate mo- 
ment—a randomly selected animal. 
Older children soon develop an aware- 
ness of the relationship between keys 
and screen and are able to call up de- 
sired favorites at will. 

Most of Hodge Podge’s graphics are 





extremely simple, but this seems to be 
intentional. The cheerful colors and 
blocky designs have ankle-biter appeal. 
It’s this simplicity that makes the pro- 
gram deceptive. It just doesn’t look like 
it does as much as it actually does. 

Many of the drawings are animat- 
ed or have musical accompaniment, 
and all have the potential for teaching. 
There are the alphabet and counting 
lines and musical scales, but there are 
others which educate more subtly than 
these. When a song is played, the corre- 
sponding notes appear in the lower 
right corner of the screen. Some keys 
provide thought-provoking pictures 
such as a prism breaking a streak of 
white light into a series of many colors 
or a volcano erupting. When older chil- 
dren play, these kinds of pictures can 
serve to stimulate discussion. 

The short sequences used in Hodge 
Podge are just right for capturing a 
youngster’s attention span. They're 
reminiscent of some of the animations 
on ‘Sesame Street.” In fact, Hodge 
Podge is sort of an interactive “Sesame 
Street,” where a child can prompt his or 
her own entertainment, be educated, 
and become familiar with the computer 
all at once. 

Hodge Podge fills a niche: It’s a 
computer game for the youngest mem- 





bers of the family: 18-month-olds are 
delighted by it. Even sophisticated six- 
year-olds enjoy the music and the sur- 
prise of the random selections. The 
most fun is to turn an older and youn- 
ger child loose on it together. 

The two-page manual gives a com- 
plete run-down of what response each 
key will bring. It refers only to the Ap- 
ple and Atari versions, so there are no 
loading instructions for the Commo- 
dore. Of course, most 64 owners are 
smart enough to figure them out; at the 
same time, this is an unfortunate over- 
sight on the part of Artworx. 

The phrase hodge podge means 
mixture or jumble. Artworx’s Hodge 
Podge is exactly that: a jumble of pic- 
tures and sounds designed to please the 
eyes and ears of its audience. With it, 
your computer becomes a magical toy- 
box that your children can open up 
themselves to discover what lies inside. 
And for a child growing up in a com- 
puter-using society, that introduction 
can be the biggest magic of all. 

—Robin and David Minnick 


Artworx 

1844 Penfield Rd. 
Penfield, NY 14526 
$14.95 
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configurable, & FAST! Great for BBS operation. 
‘Super Graphix GOLD - the ultimate printer interface which 
supports 128 FAST serial and includes a 32K buffer, 4 built-in 
fonts, 4 downloadable fonts, and a utility disk with 27 fonts, 
Super Graphix - an enhanced printer interface which has NLQ 
built-in and includes an 8K buffer, 2 downloadable fonts, reset 
button, and a utility disk with 27 fonts. 
Super Graphix jr - an economical printer interface with NLQ 
built-in and includes 10 printing modes, graphics, and easy 
‘operation. 
FontMaster II - a powerful wordprocessor for the C64 with 
30 fonts ready to use, 65 commands, font creator, data merging, 
super and subscripting, italicizing and more. 
FontMaster 128 - a super wordprocessor for the 128 with 56 fonts 
ready to use including foreign language fonts, on screen-font preview, 
4 column printing, a 102,000 word spell checker and much more. 


The Xetec Product Family for the Commodore C64® and 128° 


The name that spells Quality, Affordability, and Reliability 

All Hardware is FCC Certified All Interfaces include a Lifetime Warranty 
Commodore C64 and 128 are registered trademarks of Commodore Business Machines, Inc. 
== Xetec, Inc. 2804 Arnold Rd. Salina, KS. 67401 (913) 827-0685 








Star NX-1000C 
Multi-Font Printer 


I took a cold, hard look at my comput- 
ing requirements some time back and 
decided I needed a daisywheel printer. 
Of course, what I wanted was a dot- 
matrix printer able to print graphics, 
banners, and other fun things, but my 
business requirements had to come 
first. While it might be fun to dump 
high-resolution screens and print greet- 
ing cards with quadruple-sized letters, I 
felt I needed the print quality that only 
a daisywheel could provide. 

Then along came Star’s NX-1000C 
Multi-Font, 

The print quality of dot-matrix 
printers has improved in the past cou- 
ple of years. Most printers now have a 
near-letter-quality (NLQ) mode, but the 
quality varies from machine to ma- 
chine, (On some printers I think NLQ 
means not letter quality.) I'm impressed, 
however, with the NX-1000C and its 
four internal fonts. 

The NX-1000C is Commodore- 
ready. You don’t need a separate inter- 
face to connect it to your computer. It’s 
fully compatible with the 64 and the 
128, and it prints all the Commodore 
graphics and business character sets. 
The 1000C also has an ASCII operating 
mode which prints the standard ASCII 
character set. 

In draft-quality mode, the nine-pin 
1000C prints 144 characters per second 
(cps) at 12 characters per inch (cpi). In 
NLQ mode, it slows down to 36 cps, em- 
ploying a dense matrix of up to 18 X 23 
dots to print well-defined characters. The 
1000C has four built-in NLQ type styles. 

Turn on the printer and it defaults 
to draft mode. Press a switch on the 
front of the panel to select one of the 
NLQ type styles: Courier, Sanserif, Or- 
ator with small capital letters, or Italics 
for all styles, Orator with lowercase let- 
ters can be selected by printer control 
commands. Some 24-pin printers offer 
a variety of fonts via plug-in cartridges, 
but to the best of my knowledge, the 
1000C is the only nine-pin printer that 
has fonts built in. 

Another switch on the front panel 
selects the print pitch—the spacing be- 
tween the letters. The printer powers 
up in pica pitch, which prints 10 charac- 
ters per inch. Elite is 12 cpi, condensed 
pica is 17 cpi, and condensed elite 
prints 20 cpi. Proportional pica and pro- 
portional elite can also be selected. 
Load a word processor file or spread- 
sheet and then select the print quality 
and number of characters per inch prior 
to printing. 

Should you wish to change styles 
within a document, all of the type styles 
and pitches can be selected by printer 
control commands that you include in 
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your document. Orator, for example, is 
a dot taller than the other styles. You 
may want to use it for a title or a sub- 
heading. Power up in Courier or San- 
serif and then switch to any other font 
or pitch by using an embedded printer 
command. You also have the option to 
lock in a desired font to prevent software 
interference from your word processor. 

Like many printers, the 1000C 
handles both single sheets and fanfold 
paper, but it utilizes a unique paper 
parking feature that I particularly like. I 
use a cheaper grade of fanfold paper for 
everyday printing needs, but I prefer 
quality stationery for important letters. 
On most printers, you have to remove 
the fanfold paper to print a single sheet. 
Then you have to reload the fanfold, 
making certain the sprockets are 
aligned in the tractor drive and that the 
paper is feeding properly before you 
can start printing again. 

You don’t have this hassle with the 
1000C. Simply press two switches on 
the front panel, and the fanfold paper 
feeds backward out of the way. The 
printer is now ready to print single 
sheets. When you've finished with the 
single sheets and want to reload the 
fanfold paper, move the bail lever for- 
ward, and the paper automatically 
feeds back into position. 


This 
This 
This isa 
THIS 
This is a 


sample 
sample 
sample 
SAMPLE 
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bers where they're explained in the 
manual. A chapter on BASIC program- 
ming explains how to create special 
printing effects, how to download cus- 
tom characters, and how to access the 
printer’s special control commands. 

In addition to their normal func- 
tions, the four switches on the front 
panel also perform special applications, 
including hex dumps, margin adjust- 
ments, self tests, and forward and 
reverse paper adjustments. If you need 
international character sets, they're ac- 
cessible at the toss of a DIP switch for 
Germany, Denmark, France, Spain, 
Sweden, and Italy, 

I use COMPUTE!'s SpeedScript 
word processor, and, in most instances, 
the 1000C works fine with it. Speed- 
Script, however, uses a code for under- 
lining that the 1000C doesn’t recognize. 
Be sure to remove any SpeedScript under- 
line commands, or the printout will be 
ruined, If you need to underline, you can 
define your own printkeys with the prop- 
er codes without too much difficulty. 

The computer did lock up after 
printing single sheets, but it cleared as 
soon as I turned the printer off. This 
same lockup occurred after printing a 
GEOS file. Since the lockups occurred 
only when the printing was completed, 
the problem was a minor annoyance. 
Other than that, the printer worked 
fine, printing GEOS graphics and text in 
a variety of fonts. (My version of GEOS 
doesn’t have a driver for the 1000C, but 
the NX-10C driver does the job.) 

The only other complaint I have is 
the three-foot cable that connects the 
printer to the disk drive. I would have 
appreciated one a little longer. 

The printer comes with a one-year 
warranty. If you have a technical ques- 
tion, free help is available by calling 
Star's technical support services. 

If you're looking for a good, Com- 
modore-ready printer to fit a modest 


of Draft quality. 

of Courier. 

of Sanserif. 

OF ORATOR WITH SMALL CAPITALS. 
of Orator with Lower Case. 


This is Sanserif in Proportional Elite Italic. 


Print samples from the NX 1000C. 


Printing single sheets is also a 
breeze with the printer's semiautomatic 
loading feature. Place a sheet into the 
paper guide and slide it down as far as it 
will go. Move the bail lever forward, 
and the paper feeds automatically. 
Close the bail, and you're ready to print. 

The 90-page manual is clear and 
easy to read. It has an index to help you 
find specific information quickly. A 
handy reference card shows DIP switch 
settings and all the functions of the 
front panel switches. It also lists about 
100 control codes and the page num- 


budget, I wouldn’t hesitate to recom- 
mend the Star NX-1000C. It may be a 
budget-priced printer, but it certainly 
doesn’t act like one. It'll turn out graph- 
ic masterpieces you can hang on the re- 
frigerator door with pride, and you 
won't be ashamed of the way it prints 
your résumé either. 

—Tom Netsel 
Star Micronics 
200 Park Ave. 
Suite 3510 
New York, NY 10166 
$299 








uw The Great 


SA” Communicator “4e 
THE DIRECT-CONNECTHAYES® AND COMMODORE! 1670 
COMPATIBLE 1200 BAUD MODEM For ONLY $74.25 


Everything from Electronic Mail (E-mail) to stock quotesand huge 
databases of every imaginable type is now on line to the small 
computer owner. Youcan evensendand receivemessagesanywhere 
inthe world. All youneed isa telephone anda modem which allows 
your computer to communicate with others. 

Almost all modems (and services) are set up to communicate in 
one or more of three speeds; 300, 1200 and 2400 Baud. Most 
computer users prefer 1200 Baud. (1200 Baud is about 4 times as 
fast as 300 which means you spend about ¥ the time and money 
getting the data you want and more time enjoying it.) 

2400's are great (but quite expensive). Most users can't justify 
the cost difference unless they do a large amount of modem work 
with a service that can handle 2400 baud. 

You will also notice a few very cheap 1200s on the market at "too 
goodtobetrue prices.” They are. The reasonisthatthey are usually 
foreign built and not truly Hayes® and Commodore 1670" com- 
patible therefore not usable in all situations and with all serivces, 

Whatis Hayes® compatibility? It's the industry standard and about 
all modem manufacturers have adopted the "AT" (Hayes) command 
set. Virtually all software being written now uses Hayes commands. 
Beware of those who don't. 

Let's compare Minimodem-C™ with the 1670" 





Comparison of Minimodem-C™ vs. 1670’ vs. Avatex 
Hayes* Compatibility? 100% Subset Only Subset Only 
Commodore diract Connect? Yes Yes No 
Number of Status Indicators 7 0 8 
Busy Detect? Yes No No 
OTR Signal Support? Yes No Yes 
High Speed Detect Line? Yes No No 
Number of DIP Switches 8 3 8 
Number of Status Registers 16 3 ? 
Guarantee 1yt 90 days ? 





Now you have the FACTS to make an informed decision. 
What do you get for$74.95? Everything! Youdon'tneedtoworry 

about cables, compatibility or anything else! The Aprotek 

Minimodem-C™ plugs directly into your Commodore C-64, C-64C 

orC-128 USER port. Itis unique in that it has two separate (switchable) 

emulation modes (Hayes and 

Commodore 1670* ) to make it 

compatible with ALL available 

software. The Minimodem-C™ 

is a full feature, 300/1200 Baud 

modem with Auto Answer, Auto 

Dial, Touch-Toneorrotarydialing, 

has statusindicatorsandabuilt- 

in speaker, Just plugit into your 

computer and standard phone 

jack with the attached cable. Minimodem-C™ is supplied with 
“Multiterm'' 64 and 128, anda free trial subscriptionto Compuserve. 
Doyou have morethan onecomputerordo you plantoget another 

computer? We have your solution. Simply order our new 


Com-Modem”” adapter (#5100) along with the standard Aprotek 
Minimodem-H™ which you can use with any computer that has a 


RS-232 serial port as well as with your Commodore. Aprotek 
Minimodems™ are tiny. Only 434” long, 234” wide and 3%” high. 
Our highly integrated, state-of-the-art circuitry makes this modem 
a Best Buy. 

Built with pride in the USA and fully guaranteed for 1 year. 
Order yours today! 
NO RISK POLICY 
Try any Aprotek product for two weeks. If you are not satisfied, call 
us then send it back for a prompt refund. 
NOW FOR THE BEST PART, THE PRICE! 
Order - Item Qty Price Shipping 
6212 MINIMODEM-C (Commodore) ___ 74.95 ___ 
6214 MINIMODEM-H (RS-232) * — 8495 
6216 MINIMODEM-AM (Amiga) * — 8495 
* (Specify Male or Female Connector) 


Total 





PRICE & QUALITY 


C7 ty 
~2| Aprospand-64'cives your Commodore 64 or 128 full 


expandability! This superbly designed expansion module plugsinto 
the expansion port and gives you four switchable expansion 
connectors—plus fuse protection—plusareset button! Before you 
buy an expander, be sure that it hasa fuse to protect your computer 
and that you can activate your cartridges in any combination allowed 
by the cartridges. 
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UNIVERSAL RS-232 INTERFACE 


with Commodore USER Port expansion. ONLY $39.95 + S&H 

Now, youcan connect and communicate with any of the popular 
RS-232 peripherals using your Commodore USER Port. This superb 
expander opensawhole newworldto your Commodore computer's 
capabilities. Youcan nowconnectto printers, modems andany other 
RS-232 device. If you already have 
something that connects tothe USER 
port, don’t worry because the port is 
duplicated onthe outside edge of the 
interface. Comes complete with 
sample driver program listings 
Compatible with all Commodore 
home computers with a USER port. 
1-year warranty. Order #5232. 


“COM-MODEM” ADAPTER — Used only with 
any Hayes* compatible modem with DB-25 connector through your 
USER port. You can make it emulate a 1670 too, or turn it off entirely. 
Can be used with our other USER port equipment such as "USER 
EXTENDER" (#5250) or “UNIVERSAL RS-232 INTERFACE" (#5232), 

















FRONT DB-25 

USER PORT FEMALE 
CONNECTOR CONNECTOR 
Order #5100 .................. $19.95 + S&H 
“USER EXTENDER" — 10"Ribboncable extender for your 
Commodore USER port. Order #5250.......+ $21.95 + S&H 








Com 6 Pin Serial Cable (5ft) #3006-5MM $9.95, (8ft) #3006-8MM $11.95 
Commodore Serial Ext. (5ft) #3006-5MF $9.95, (ft) #3006-8MF $11.95 


Shipping per each above item: Cont. US = $3.Can, PR, HI, AK, APO, UPS Blue =$6 
ORDERINFORMATIONCaliforniaresidents add 6% tax. All prices 
are cash prices—VISA and MC add 3% to total. We ship the next 
business dayon money orders, cashier'schecks, andchargecards. 
‘A 14-day clearing periodis required for checks. Prices and availability 
subjectto change—CALL. Available at Selected Dealers. Dealer 


inquiries invited. 2 week satisfaction or your money back trial 
period on all products. 


For info and order status call 805/987-2454 (8-5 PST) 
TO ORDER CALL TOLL FREE 
800-962-5800 - USA, 800-962-3800 - CA (7-6 PST) 
Or send order to: 














Dept. CG 
1071-A Avenida Acaso 








Modem shipping—Cont, US $6.00; UPS Blue, CAN, AK, Hi, APO $10.00 


= ARORK 


Camarillo, CA 93010 


Reload your gun! Your opponent 
has knocked the puck nearly into 
your goal. Without some quick 
work, you'll lose the game. 

“BB Barrage” is easy to learn: 
You just aim at the puck and shoot. 
Each BB pushes the puck a little 
closer to your opponent's goal. 
There is a complication, of course. 
BBs bounce off the obstacles that in- 
habit the playfield. After a BB 
bounces off a few obstacles, it might 
just knock the puck toward you, 

BB Barrage is customizable, A 
screen editor allows you to change 
the obstacles, friction, and other 
game options. After building your 
ideal version, you can save it to disk 
for later play. 


Typing It In 
BB Barrage consists of two pro- 
grams. The first is the main game 
program. It’s written in machine 
language. To enter it, use “MLX,” 
the machine language entry pro- 
gram found elsewhere in this issue. 
When MLX prompts you for start- 
ing and ending addresses, respond 
with the following values: 
Starting address: C000 
Ending address: CBIF 

Carefully enter the data for 
Program 1, When you've finished 
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Drive a hockey puck toward your opponent's goal with BBs shot 
from a rapid-fire gun. Challenge a friend at this maddening and 
addictive action game for the 64. Two joysticks are required. 


typing, save the program to tape or 
disk. It’s important to use the name 
BB when you save the program 
since Program 2 tries to load the file 
by that name. 

If you have a disk drive, you 
can type in and use Program 2, “BB 
Barrage Screen Editor.” This pro- 
gtam is written in BASIC. Carefully 
type it in and save it to disk. BB Bar- 
rage Screen Editor allows you to 
draw new playfields for BB Barrage. 
It also lets you change certain game 
parameters, including the friction of 
the playing surface and the number 
of BBs. If you have a tape drive, you 
cannot use the BB Barrage Screen 
Editor. 

Program 3 is a sample screen 
for BB Barrage. It’s useful only if 
you also type in Program 2. Using 
MLX, type in the program and save 
it to disk. When MLX prompts you, 
use these values: 


B02 
CBE1 


Starting address: 
Ending address: 
Be sure to save a copy before exiting 
MLX. 


Man Your Stations 

To play BB Barrage, plug two joy- 
sticks into your computer. Type 
LOAD"BB”,8,1 (or LOAD’BB’,1,1 
for tape users) and press RETURN. 














The left player has pushed the blue puck 
nearly far enough to score in “BB 
Barrage.” 





BB Barrage’s editor can be used to create 
custom screens like this one. 


After the program loads, type SYS 
49152. 

In the center of the screen is a 
light blue puck. The player whose 
joystick is in port 1 controls the 
right side of the field, while the oth- 
er player controls the left. The goals 
run along the left and right edges. 
Your gun is located in the center of 
your goal. To aim, press the joystick 








forward or pull it back. To shoot, 
press the fire button. Holding the 
button down enables rapid fire. 

The goal of the game is to 
knock the puck into your oppo- 
nent’s goal. Do this by spraying a 
stream of BBs toward the puck. Sev- 
en goals are needed to win the game. 

Note that there are obstacles— 
known as deflectors—on the screen. 
Although the puck slides right over 
these deflectors, BBs bounce off 
them. Careful use of these deflec- 
tors can give you the edge you need 
to win the game. 

If a minute passes without a 
score being made, the screen border 
turns red, and you go into destruct 
mode. From now on, BBs destroy 
the deflectors instead of bouncing 
off them. 


Designing Custom Games 

BB Barrage Screen Editor (Program 
2) is used to create custom versions 
of BB Barrage. Before you run Screen 
Editor, be sure that a copy of BB Bar- 
rage is on the same disk (it should be 
named BB). To use Screen Editor, 
load and run the program. 

The edit cursor is the small yel- 
low block found in the upper left 
corner of the screen. You can move 
the cursor with the joystick plugged 
into port 2, Press the fire button to 
choose a command. Alternatively, 
you can simply press the key which 
corresponds to the command you 
want. The first five commands 
allow you to place various types of 
deflectors on the screen. Besides the 
deflector commands, the following 
commands can also be used: 


Command Action 

P Play the game with the 
current settings 
Save a screen to disk 
Load a screen from disk 
Clear the screen of any 
barriers 
Toggle symmetry mode 
Choose options 
Show help screen 
Exit the program 

If you choose a deflector, you 
can use the joystick to move it to 
various parts of the screen. Press 
the fire button to place a deflector. 
If you press again, the deflector is 
removed. 

You can also use the keyboard 
to place deflectors. To place a de- 
flector, move your cursor to the de- 
sired screen position and press 
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SHIFT-Q, SHIFT-* (asterisk), 
SHIFT-— (minus), SHIFT-N, or 
SHIFT-M. SHIFT-Q is round. It de- 
flects the BBs randomly. The other 
four deflectors are straight lines off 
which the BBs bounce. 


A Well-Balanced Screen 

The Mirror command (M) creates 
symmetrical screens. When mirror 
mode is on, any deflector placed on 
the screen is mirrored on the 
screen’s three other quadrants, This 
makes the process of screen design 
quicker and easier. 

The Option command (0) lets 
you change many important pa- 
rameters of BB Barrage. First, you 
can choose colors for the back- 
ground, border, puck, BBs, and 
guns. Next, you're asked for the 
number of goals needed to win the 
game. You're also prompted for the 
length of time (in seconds) before 
the game enters destruct mode (en- 
ter —1 to completely disable de- 
struct mode). Next, choose whether 
you want friction to be on or off. If 
friction is on, the puck gradually 
slows down after it’s hit. With fric- 
tion off, the puck keeps sliding until 
it’s hit again. The next option lets 
you select whether or not players 
take BBs from a common pool. If 
you select 1 Possession, BBs that go 
off your side of the screen cannot be 
used by your opponent. This option 
puts more strategy into the game. 
The number of BBs in play is also 
variable. The default number of BBs 
is 100. Just remember that as the 
number of BBs on the screen rises, 
the speed of the game decreases. 
The final question you're asked is 
whether you'd like to save a custom 
version of BB Barrage. If you re- 
spond by pressing Y, you'll be 
asked for the filename of the new 
program. The new version of the 
game can be played just like the 
original. Just type LOAD“‘file- 
name’’,8,1 and type SYS 49152. 

There are two disk commands: 
Land S. The Load command (L) lets 
you load a screen that you created 
earlier. You can use this command to 
load Program 3. The Save command 
(S) saves a screen design to disk. 

The Help command (H) dis- 
plays a help screen which lists the 
commands and describes their uses. 

The Exit command (E) simply 
exits to BASIC. 

See program listings on page 76. @ 
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Cribbage 


128 


Bruce Boyles 


drive is required. 


“Cribbage 128” is a computer ver- 
sion of one of the oldest known 
card games, The computer takes 
care of the hard part—the scoring, 
You concentrate on the game to try 
to beat the computer opponent. 

If you are unfamiliar with the 
rules of Cribbage, see the accompa- 
nying article, “Cribbage: A Closer 
Look.” 


Typing It In 

Cribbage 128 is written partly in 
BASIC and partly in machine 
language. 

Use “128 MLX,” the machine 
language entry program found else- 
where in this issue, to enter the pro- 
gram. When you're asked for the 
starting and ending addresses, re- 
spond with the following values: 
Starting address: 1300 
Ending address: 179F 

Type in the data for Program 1, 
When you've finished typing, be 
sure to save the program to disk 
with the name CR128. The BASIC 
program expects to find a file of this 
name when it is run. 

Now type in Program 2, the 
BASIC portion of Cribbage 128. 
When you've finished typing, save 
the program to disk. 


Your First Game 

When you're ready to play a game 
of Cribbage, simply type RUN “file- 
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This venerable card-and-board game is @ classic. 
in electronic forn—and your 128 is a crafty opponent. 









} 
disk 


name”. Use the filename that you 
used when you saved Program 2. 

Cards are designated by num- 
bers. You must discard two cards at 
the beginning of each hand. Press 
the numbers corresponding to the 
cards. If you're not sure what to dis- 
card, you can ask the computer for 
help by pressing H or the HELP 
key. The computer will offer its 
suggestions. 


FESING POINTS eral) 
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Out-think a computer opponent in this 
computer version of a classic game. 





After you discard, pegging be- 
gins. The points scored during peg- 
ging are displayed in the upper 
right corner of the screen. The tally 
is also displayed. When it's your 
turn, the computer displays the 
prompt CARD #. Press the number 
of the card that you wish to play. 

After pegging is over, the com- 
puter shows the hands and their 
scores. The computer also shows 


ere 





match points, games won, and a 
breakdown of how the points were 
scored: from the hand, from the 
crib, or from pegging. 

When either you or the com- 
puter scores at least 121 points, the 
game ends. The computers then 
asks if you'd like to play again. 
Press Y for yes or N for no, 

You'll find that the computer 
plays a very good game. The com- 
puter isn’t terribly cunning, but it’s 
very thorough. It should provide a 
challenge to even expert players. 
See program listings on page 70. @ 

















Now Get Inside Your Commodore with 
COMPUTE!’s Gazette Disk. 
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Now there's a way to get all the exciting, fun-filled programs of 
COMPUTE!’s Gazette—already on disk—with COMPUTE!’s 
Gazette Disk. 


Subscribe today, and month after month you'll get a new, fully- 
tested 51-inch floppy disk guaranteed to run on your Commodore 
64, or Commodore 128 personal computer. 


COMPUTE!’s Gazette Disk brings you all the latest, most chal- 
lenging, most fascinating programs published in the corresponding 
issue of COMPUTE!’s Gazette. So instead of spending hours typing 
in each program, now all you do is insert the disk... and your 
programs load in seconds. 


RESULT: You have hours more time to enjoy all those great 
programs which appear in COMPUTE!’s Gazette—programs like 
SpeedScript 128, Arcade Volleyball, 3-D Sprites, Sketch Pad, Sound 
Manager, 1541 Speed and Alignment Tester, and hundreds more. 


So don’t waste another moment. Subscribe today to COMPUTE!’s 
Gazette Disk at this money-saving price. Take a full year’s 
subscription for just $69.95. You save 55% off the single issue 
price. Subscribe for two years and save even more! Return the 
enclosed card now. 


Individual issues of the Disk are available for $12.95 (plus 
$2.00 shipping and handling) by writing us at P.0. Box 5188 
Greensboro, N.C. 27403. 











Cribbage is the oldest of all two- 
handed card games. In fact, it’s 
among the oldest of all card games. 
Historically, its invention dates 
back to the early 1600s and is most 
often associated with the English 
poet Sir John Suckling. 

Cribbage is a two-player game. 
It’s played on a table or large open 
space with a standard 52-card deck 
and a Cribbage board, The board (a 
wooden board with peg holes) is 
used to keep score, 

The reason that pegs are so 
useful in scoring is that there are so 
many different opportunities to 
score during play. The pegs are ad- 
vanced appropriately when a score 
is made. The first player to reach 
the end of the board is the winner. 
The computer version of Cribbage 
conveniently replaces the need for 
a partner, table, cards, and Crib- 
bage board. 


The Rules of Cribbage 

The object of the game is to be the 
first player to obtain a total point 
score of 121 or more. The cards 
rank from the high card (a king) 
down to the low card (an ace), All 
cards are counted at face value. 
Face cards are valued at ten. Aces 
are worth one point, 

At the beginning of a game, the 
computer cuts the cards to deter- 
mine who deals first (low card 
deals), The dealer shuffles and then 
deals six cards to each player (the 
opponent receives the first card), In 
the computer version of the game, 
your cards are located at the bottom 
portion of the screen and your op- 
ponent’s cards are at the top. 

After the deal, the remaining 
cards are put away until needed, 
Both players then select two of their 
six cards to discard. These four dis- 
cards are known as the crib. The 
crib is scored as an extra hand con- 
tributing to the dealer's total at the 
end of a game. It is located in the 
center of the screen between the 
players’ hands. Whenever both 
players have discarded two cards in 
the crib, it’s removed until the end 
of the game. 

When the crib has been put 
away, the dealer cuts the remaining 
cards in the deck. The bottom card 





34 COMPUTE!'s Gazette August 1988 





Cribbage: A Closer Look 


from the cut is placed face up in the 
lower right portion of the screen. If 
the cut card is a jack, the dealer 
pegs (scores) two points, This is re- 
ferred to as two for his heels in Crib- 
bage jargon. The cut card counts as 
the fifth card for both players 
hands, and it’s also the fifth card of 
the dealer's crib. Other than being 
involved in scoring, the cut card is 
not used in the pegging or play por- 
tion of the game. 


Game Play 

Once the cut has been made, play 
begins. Both players alternate play- 
ing the four cards remaining in their 
hands. This is called pegging. The 
dealer is never the first to play. 
Once a card is selected, it’s placed 
in the center row on the screen. The 
total of the cards is displayed in the 
tally box. Play continues until the 
total of the cards is 31 or as near to 
31 as possible. 


If, during his or her turn, a 
player cannot play a card without 
exceeding 31, the turn is passed to 
the other player. The opponent 
must play any or all of his or her 
cards until 31 has been reached or 
until no further plays can be made. 
If neither player can play a card 
without exceeding 31, then the last 
player able to play receives one 
point for closing. This is commonly 
referred to as the go. If your cards 
total exactly 31, you'll receive two 
points for the go. Once a final go or 
31 has been reached, the cards that 
have been played are turned face 
down, and play continues with any 
remaining cards, 

After both opponents have 
played the cards in their hands, the 
remaining cards are revealed. This 
is referred to as the meld. The com- 
puter displays the dealer’s hand 
last. This allows the dealer's oppo- 
nent the chance to total 121 or more 
and win the game even if the dealer 
may have scored higher. If the op- 
ponent’s total is less than 121, the 
dealer's hand is displayed. Finally, 
the crib (the cards set aside earlier 
in the game) is displayed along 
with the point total. 

Once the hands are shown, a 
scoreboard is displayed. This score- 
board contains the following infor- 





mation: total number of hands 
played, total match points, games 
won, points in hand, points in crib, 
points pegged, and total score, 
These scores can be valuable for 
evaluating game play. 


Scoring 

In addition to the points scored for 
the go and 31, there are several oth- 
er ways to score when playing Crib- 
bage. Keep in mind that points are 
scored in pegging and also in the 
meld. 

Two points may be earned 
whenever the sum of the face value 
of the cards played equals 15, For 
example, if the first player plays a 7 
and the second player plays a 5, 
then the first player could play a 3 
and would receive two points for 
making the tally equal 15. 

Every pair (two cards of the 
same denomination played in suc- 
cession) scores two points. Three of 
a kind scores 6 points, and four of a 
Kind scores 12 points. 

Points are awarded for runs. A 
run is similar to a straight in poker. 
The minimum number of cards in a 
run is three. The cards in a run do 
not necessarily have to be played in 
numerical order. However, they do 
have to be grouped together. For 
example, the following are all le- 
gitimate runs: 6-7-8, 8-6-7, 7-8-6. 
Remember, the ace is low in Crib- 
bage, therefore ace-king-queen is 
not considered a run, One point is 
scored for each card in a run, 

In the meld, it’s possible to 
have double and triple runs. For ex- 
ample, 3-3-4-5 would be a double 
three-card run (using the 4 and 5 
with each 3), and 3-3-4-5-6 would 
be a double four-card run, 

If all four cards in the hand are 
of the same suit, then four points 
are counted for a flush. If the cut 
card is of the same suit, then five 
points are scored, In the crib, all five 
cards must be the same suit in order 
to score points for a flush, 

If your hand contains a jack 
with the same suit as the cut card, 
you receive one point. This is re- 
ferred to by Cribbage players as one 
for his nobs. 

—David L. Hensley, Ie 














UTILITIES UNLIMITED, inc. 935"! #220 8is0'Sc0 00" 


12305 N.E. 152nd Street 
Brush Prairie, Washington 98606 


SUPER PARAMETERS 500 PAK 
Ata time when many programmers are cutting back on writing parameters 
weare going{ull steam! After getting several requests for parameters on many 
ofthe “oldies but goodies” WE DID JUST THATI ANOTHER Ist: 500 MORE 
SUPER PARAMETERS in one pack. This FANTASTIC 5-DISK SETis a value 


of over $100 for less than 1/2. $39.95 


SUPER PARAMETERS 100 PAKS: 1 thru 5 
.»» YOUGET 100 OF THE BEST PARAMETERS, ANYWHERE. Professionally 
done, easy to use, reliable, fast and full of performance. This package can 


remove all protection. Includes titles from 
$14.95@ 


all major software publishers for the C64/128. 
ALL PARAMETERS ARE TOP QUALITY—NO FILLER OR JUNK 


The ‘Original’ Parameter Cross-Reference 
Ever ask, “Is there a parameter for this program? And where do | get it?” ASK 
NO MOREI The answers are all 


Over 5,000 listings. : $19.95@ 

















Orders taken 24 hrs. a day; 
seven days a week. Dealer Inquiries Invited. 


shipping & handling; $2.00 for COD on 
I orders. Visa, M/C accepted 


If anything can copy everything, this may be itl 
Introducing SUPERCARD 


Well folks, here it finally is, THE BESTE There is just not anything better gy 
than Supercard. Even our competitor has stated that to back up the 
newest protection schemes, a high powered software/hardware pack- Ml 
ageisneeded, Supercard isthe product of 2yearsand $500,000intotal my 
festment. Supercard i into your 1541 or 1541c. in gy 
Just minutes with no sol is package makes backups 
‘f programs that noother utilitycan touch. WiththeSupercardinstalied @ 
inyour ese programsareno threat. Thissmallcar imately 
2° square) plugs in fast and easy with on) issoft: gy 
able to cover new schemes, (Call for 1571 version informa gy 



















SUPERCARD has done 100% of everything we tested. 


$ AQ.OS © oumerers, Faber or A. Ranger? 


s 
a 
dual drives add $35.00 








WORLD'S BIGGEST 
PROVIDER OF 


C64/128 
UTILITIES 





Software Submissions Invited 
We are looking for HACKER STUFF: print utilities, 
parameters, telecommunications, and the unusual. 


We now have over 1,000 parameters instock! 





THE FINAL CARTRIDGE III versus super snap shot 


The Cartridge war heat up. Well folks, heres the real storyll! In thelr latest ad, our 
competition claims they are getting better reviews. Well. that's partly t but 
mostly false. First of ail, they are comparing reviews written about the old Final 
Cartridge and not the current version III. We at Utilities Unlimited Inc. are so sure that 
you would choose The Final Cartridge over that other one wemake the following offers 
1, 100% no-questions-asked 10-day refund Guarantee, 

2, For those of you who bought the super snap shot believing that you were buying, 
the best, then saw the Final Cartridge It, we offer you $30.00 for your super snap 
shot, asa trade in for the BEST. . . The Final Cartridge IN]. 



























SIMILAR PRODUCTS MAY APPEAR ELSEWHERE LATER: JUST REMEMBER YOU SAW THEM HERE FIRSTI! 


PARAMETERS CONSTRUCTION SET 


The company that has THE MOST PARAMETERS is about to do so 








twill also CUSTOMIZE the disk with yourname, 
impress you as wells your {rlends The “PARAMETER CONSTRUC- 
ET" Is like nothing you've ever seen. In fact you can even READ 
PARAMETERS that you may have already written; then by usingyourcon: 
struction set rewrite it with your new CUSTOMIZED MENU. 


$34.95 





(Anotherfirstt) THE 128 SUPERCHIP—A, B or C 


A Thereis an empty socket inside your 128 just wa 
worth of great BUILT-IN UTILITIES, all at just the TOUCH OF A FINGER. You get bu 





FILE COPIER, NIBBLER, TRACK & SECTOR EDITOR, SCREEN DUMP, and even a 300/1200 





baud TERMINAL PROGRAM that's 1650, 1670 and Hayes compatible. Best of al 






B ttassuper8iu 5—acomplet 
or 1571 format to 1581. Many options include 1581 
also perform many CP/M & MS-DOS utility functions. 








C °C°isfor combo and that's what you get. A super combination of both chips A and B in one 
ALL CHIPS INCLUDE 100 PARAMETERS FREEI 


Chips A orb: $29.95@ chipc: $44,.95@ 





chip, switchable at a great savings to y 


g for our SUPER CHIP to give you 32k 


itdoesn'tuse 
up any memory. To use, simply touch a function key, and it responds to your command 





package for the 1581. Copy whole disks from 1541 
sk editor, drive monitor, Ram writer and 








idge III now includes many features ni in super snap shot 

i newest 64/128 nibbler and 
rameters croc) $54.95 

ow 

HES MON cartridges (limited supply) 9 4.95 
1541 Mash (for drive alignment) ska 914.95 
in features; 64 BBS; for | or 2 drives o* $19.95 
64 MODEM prg.: w/wargames auto dialer $14.95 
N-CODER & D-CODER: toget| . 914,95 
GRAPHIC LABEL MAKER: the o ween ee $12.95 





D-COMPILER: for the famous BLITZ ........... 914,98 

HEAVY DUTY REPAIRABLE 64 POWER SUPPLIES .. 939.95 
Too many 64 repairs are due to faulty old supplies— 
don't wait! 

DISK NOTCHERS: double disk capacity 9 4.95 





Used super snap shot (limited supply) ......... $29.95 






The Original Geos Standardizer fri $ 9.95 
SUPER NIBBLER: 64/128 .. JP erate . $14.95 
SUPER CARTRIDGE . +. $44.95 


\V-MAX, RAPID LOCK. 








Lock Pik 64/128 was put together by our crack team, asa tool forthose who havea desire 
to see the INTERNAL WORKINGS of a parameter. The books give you STEP-BY-STEP. 
INSTRUCTIONS on breaking protection for backup of 100 popular program titles. Uses 
HESMON and SUPEREDIT. Instructions are so clear and precise that anyone can use 
it. #OUR BOOK TWO IS NOW AVAILABLE* 

BOOK 1: Includes Hesmon and a disk with many ut 4 
‘SAVE, DISK LOG FILE and lots more, all with instructions on disk. A long-time favorite. 
BOOK 2: 100 NEW EXAMPLES, Hesmon on disk and cartridge plus more ul 
include: A GENERAL OVERVIEW ON HOW TO MAKE PARAMETERS and a DISK 


SCANNER, $29.95 each on Buy Bot ror onty $49.95, 
Now with FREE Hesmon Cartridge. 











DIGITAL SOLUTIONS” 





For product support, call 
between 10 a.m. to 4 p.m. 
Pacific Time. 








Aa cooy tyRWS Ina 


You've just inherited a thousand 
bucks. Should you invest in art? 
Maybe precious metals is your 
game. Or maybe you like things 
closer to home—coins, stamps, and 
baseball cards. After considering 
several investment options, you 
pick the stock market—and we all 
know the risk that involves. So, to 
minimize your chances of getting 
burned on individual stocks, you 
make mutual funds your invest- 
ment vehicle. 

Mutual funds buy and sell 
groups of stocks. For instance, 
when you buy a share of the Com- 
puters fund, you're really buying 
shares of IBM, Commodore, Cray 
Research, Control Data, Apple, and 
dozens of other related companies 
that make up this fund. You're bet- 
ting that the computer industry as a 
whole will increase in value. 

“Investor” lets you (and, op- 
tionally, a friend) invest in a simu- 
lated market of mutual funds. If 
you're observant (and lucky) you'll 
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Troy Tucker 


Buy! Sell! Buy! Buy! Ride the stock market to fortune in this 
one- or two-player simulation of mutual-fund investing. It’s 
both educational and fun. For the 64, 128, Plus/4, and 16. 


take home a million bucks. But if 
you're not careful, you'll lose your 
shirt. 


Typing It In 

Investor is written entirely in 
BASIC. One version works on all of 
the following computers: the Com- 
modore 64, 128, Plus/4, and 16. 
Type in the program and save it to 
disk or tape. If you plan on using 
the program in 128 mode, be sure 
to enter it in that mode. 

To start the game, load the pro- 
gram and type RUN. You'll be 
asked for the number of players 
who wish to play. Enter 1 or 2. 
Next, enter names for the players. 
Finally, decide whether you want 
to play a short, medium, or long 
game. A short game averages about 
15 minutes, a medium game lasts 
about 30, and a long one is about 45. 

The game begins. Each player 
starts with $1,000. You'll see the 
main screen. Eleven different mu- 
tual funds are offered, and five col- 











FUNDS 
Leisuge 


Lon b1y 


Buy low and sell high in “Investor,” a 
stock market simulation. 


Pitfoy 


DO YOU WISH TO WUY OR BELL? 





Manage your personal portfolio. This 
player owns three shares of gold. 


umns of numbers display important 
information about each fund. 

The first two columns relate to 
the current price of the fund. The 








first value is the actual cost for each 
share of the fund. This is the 
amount you'll pay if you decide to 
buy into that fund. The second 
number shows the change in the 
fund price since the beginning of 
the game, 

The third and fourth columns 
respectively show the record high 
and low prices of the fund since 
trading began. 

The final column shows divi- 
dends. When stocks issue dividends, 
owners of the stocks receive a cer- 
tain amount of money per share of 
stock. In Investor, dividends are 
distributed to the owners of funds 
as a percentage of the current price 
of the fund, When the fund is doing 
well (at or above $100 per share), 
the dividends range from 1-5 per- 
cent. When the fund is doing poorly, 
the dividends are fixed at /2 percent. 


The Smart Trader 

Watch the big board. When you de- 
cide that you want to buy a fund, 
press the space bar. Enter your 
name, and you'll see your portfolio. 
You'll be asked whether you want 
to buy or sell. Then you'll be asked 
what fund you would like to trade. 
Enter the name of the fund. If 
you're buying, Investor will tell you 
how many shares you can pur- 
chase. Enter the number of shares 
of that fund that you would like to 
sell or purchase. Your portfolio will 
be updated. 

Keep a close eye on the funds 
you own. If a fund goes down near 
0, sell! A fund goes under when it 
hits 0—everyone holding the fund 
loses all their shares, and the fund’s 
price is reset to $100. 

A fund can also go through the 
roof, At $200, the fund “‘splits’’ 2 
for 1. The price of the fund is 
halved to $100, and you're award- 
ed twice as many shares, 


The Closing Bell 

When the clock at the top of the 
screen winds down to 0, the market 
closes and the final statistics are 
displayed, Look at your total net 
worth. If you end with a total high- 
er than $1,000, consider yourself a 
budding financial genius, If you 
end up with less, you'll have anoth- 
er chance another time to step out 
onto the trading floor and make 
your million. 

See program listing on page 69. @ 








COMPUTE!'s Gazette is 
looking for utilities, 
games, applications, 
educational programs, 
and tutorial articles. If 
you've created a pro- 
gram that you think 
other readers might en- 
joy or find useful, send 
it, on tape or disk to: 


Submissions Reviewer 
COMPUTE! Publications 
P.O. Box 5406 
Greensboro, NC 27403 


Please enclose an SASE 
if you wish to have the 
materials returned. 
Articles are reviewed 
within four weeks of 
submission. 
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New Subscriber: Fill n your name and address 
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One yi 4.00. Two years $45.00 
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for postage) 
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ciry STATE ziP 
Please bill me, Payment enclosed 
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BACKUP PROTECTED 

SOFTWARE FAST. 

From the team who brought you 

Copy II for the Apple, the Macintosh 

and the IBM comes a revolutionary 

new copy program for the Commodore 

64/128 computers. 

* Copies ane protected Programe - 
automatically. (We update Copy II 
64/128 regularly to handle new 
protections; you as a registered 
owner may update at any time for 
$15 plus $3 s/h.) 

* Copies even protected disks in 
under 2 minutes (single drive), 

1 minute (dual drive), 

Improved support for ROM updates 
on 1571 drives. 

* Maximum of four disk swaps on a 
single drive. 








* Includes fast loader, 12-second 
format. 


Requires a Commodore 64, 128, or 
“D" computer with one or two 1541 
or 1571 drives, 
Sales/Information: call 
503/690-8090, 8 - 5 PST., M-F. We 
accept Ana . Or send a check for 
$39.95 U.S. plus $3 s/h, $8 overseas. 
Technical Support: call 
503/690-8080. 


$39.95 

Central Point Software, Inc. 

15220 N.W. Greenbrier Parkway, #200 
Beaverton, OR 97006 


Central Pont 
Software 


Call for a catalog of our full product line. 
This product is provided for the purpose of enabling you to make archival copies only, 


ee 
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horizons 


Rhett Anderson 
Assistant Editor 


Computers talk. Ask anybody. 

It’s easy on Star Trek. ““Com- 
puter,’’ Captain Kirk might say, 
“cross reference the Klingon flight 
pattern with the dance of the Earth 
worker bee.” 

“Working . . .,”’ the computer 
says. And then, “Completed.” 

“Estimate the next time that 
the Klingons will pass in front of 
us.” 

“Working. ... Five minutes, 
28 seconds,” 

“Scotty, 1 need full power in 
five minutes.” 

Jim Kirk makes it sound easy. 
He just talks to the computer like 
it’s a human being. 

In War Games it’s more diffi- 
cult, Matthew Broderick has to type 
his questions into a computer, The 
computer talks back, once it’s con- 
nected to a speech synthesizer. Of 
course, by the end of the movie, it’s 
speaking without a speech synthe- 
sizer, but that's Hollywood for you. 


Making It Talk 

One of this month’s features, ‘Talk 
Is Cheaper,’ discusses several 
products on the market that can let 
your Commodore 64 talk. To un- 
derstand how this is fundamentally 
possible, we need to turn the clock 
back and look at the first inventions 
that talked—Alexander Graham 
Bell’s telephone, Marconi’s radio, 
and Edison's phonograph. 

Sound travels through the air 
to our ears. In the telephone, a mi- 
crophone translates the waves that 
pass through the air into electricity. 
The electrons travel through a wire 
and into a speaker. The speaker 
translates the electric pulses back 
into sound by physically moving 
the air. 

In the radio, another step oc- 
curs: The electricity is translated by 
the radio transmitter into another 
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sort of wave—a radio wave, The re- 
ceiving radio (or radios) translates 
the radio waves back to electricity, 
then back into audio waves. 

In the phonograph, the 
strength of the air waves presses a 
needle into wax. This recording can 
then be played back—the recording 
moves a needle, and the movement 
is translated into sound. 

In a more modern device, the 
CD (Compact Disc) player, the 
sound waves are turned into electri- 
cal impulses, then are translated 
into numerical quantities; the loud- 
er the sound, the bigger the num- 
ber. At the factory, these numbers 
are pressed into discs. When you 
play a CD ona player, the numbers 
are read with a laser, turned into 
electrical pulses, and then sent to 
your speakers to produce sound, 

Computers produce sound in 
much the same way as a CD player: 
Numbers in your computer's mem- 
ory are sent to the sound chip and 
then into your monitor's speaker. 
Any sound can be captured (digi- 
tized) and played back with this 
method. In fact, a whole sentence 
can be digitized for playback. Alter- 
natively, phonemes (the building 
blocks of speech) can be digitized 
and then strung together to create 
any phrase. 


Making It Listen 
A few years ago on Computer 
Chronicles, a weekly computer 
news shew on PBS, co-host Stewart 
Cheifet was trying out a young en- 
treprenuer’s computer. On the 
screen was an adventure game. A 
headset on Mr. Cheifet’s head let 
him control his onscreen alter ego. 
Mr. Cheifet tried to tell the 
character what to do. But it didn’t 
understand him. It just kept asking 
“What, what, what?” After a few 
tries, Mr. Cheifet gave up. He 
turned to ask the flustered young 
man about the computer. Unfortu- 
nately, he didn’t take the headset 





Computers’ Conversations 


off. As the two men talked, the 
computer in the background kept 
asking ‘‘What, what, what?’’— 
much to the inventor's distress. 

What happened? As difficult as 
it is to make a computer talk, it’s 
even more difficult to make a com- 
puter understand speech. Say the 
word ten ten times. It may sound 
the same to you each time you say 
it, but there are subtle differences, If 
a computer's listening, each and ev- 
ery ten sounds unique. 

To teach a computer how to 
understand a word, you have to 
“train” it. You say the same word, 
over and over, into the computer's 
microphone, It listens, and as it lis- 
tens it builds a set of numbers that 
represent the word. Later, when 
you say the word again, it checks 
the word against its composite defi- 
nitions of all the words it knows. 


The Future 

Computer scientists are working on 
many fronts to create computers 
that can hold a conversation with 
you. Perhaps the biggest problem is 
this: How do you make a computer 
understand what you're talking 
about? Some of the most cherished 
of all computer science legends re- 
volve around this problem. 

In one, a computer that’s pro- 
grammed to sift through news- 
paper stories for terrorist actions 
gets bogged down in the sports sec- 
tion—"Giants Kill Rams,” ‘‘Bull- 
dogs Massacre Tigers.” It then tries 
to interpret its findings. 

In another, a computer trans- 
lates text from English to Russian 
and back. In its most spectacular 
faux pas, it changes ‘The spirit is 
willing, but the flesh is weak’’ to 
“The vodka is strong, but the meat 
is rotten.” 

But progress is being made. 
Before we know it, the day of the 
talking computer will be upon us. 

@ 
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{© Common questions 


Tom R. Halfhill 


e On occasion, last summer, 
I noticed a bit of funky activity 
with disk operations on my 1541.1 
took the drive apart just to see if it 
contained so many chips that it 
would be hopeless for me to at- 
tempt to repair it myself. I poked 
around for a while, noting how 
heavily built the drive appears to 
be. While the drive was still 
apart, I tried it out once more. Lo 
and behold, it worked fine. 

The evidence points to an 
overheating problem. Do I have a 
drive with a chip so close to going 
over the edge that a little heat 
makes it go bonkers? Or do 1541s 
in general need lots of fresh air to 
work properly? The air tempera- 
ture in the room was 80 degrees. I 
have weighed the pros and cons 
of putting a fan on the drive. The 
drive would stay cooler, but more 
dust would be blown in. Just how 
much cooling does a 1541 need? 


A. You've hit upon a very com- 
mon problem that often leaves peo- 
ple baffled. If mysterious computer 
crashes, lockups, and equipment 
failures seem to happen more fre- 
quently in the summer, it can prob- 
ably be blamed on overheating. 

As you may know, large mini- 
computer systems and mainframes 
are almost always housed in special 
rooms in which temperature and 
humidity are carefully controlled. 
There’s a good reason for this, of 
course: Few large computers can 
function in temperatures of 80 de- 
grees Fahrenheit or more. 

Years ago, a daily newspaper 
for which I worked installed its first 
computerized editing/typesetting 
system. At the same time, extra air 
conditioning was installed in the 
newsroom—but not for the report- 
ers and editots. Instead, the air con- 





ditioning was required to keep the 
newsroom cool enough for the vid- 
eo display terminals (VDTs) to op- 
erate. We used to joke about how 
the computer received better treat- 
ment than we did. 

Then, one sweltering summer 
morning, we learned it was no joke. 
The air conditioning broke down 
before the first-edition deadline, 
and the VDTs started going hay- 
wire. To avoid unspeakable disaster 
(the paper had not missed an edi- 
tion in about a century), people 
were dispatched all over town to 
buy bags of dry ice. The bags were 
packed around the VDTs until the 
last edition was put to bed. 

The overheating problem isn’t 
quite as acute with personal com- 
puters, but it still exists. These days, 
we tend to equate computers with 
other home appliances that can op- 
erate in almost any temperature, 
even though microprocessors and 
memory chips are much more sen- 
sitive to heat than the simple 
switches, motors, transformers, and 
amplifiers that make up other con- 
sumer electronics devices. 

Your 1541 probably started 
working again when you removed 
the cover because the topless hous- 
ing allowed more heat to escape. So 
why doesn’t the drive have more 
ventilation? Because when engi- 
neers design home computers and 
peripherals, they have to compro- 
mise between efficient cooling and 
adequate radio frequency (RF) 
shielding. Without enough shield- 
ing, computing devices may inter- 
fere with nearby TV and radio 
reception. The Federal Communi- 
cations Commission requires home 
computing devices to meet RF stan- 
dards that are even more stringent 
than those for business computers. 
Unfortunately, heavy RF shielding 
leads to overheating problems. 

If overheating is indeed your 
trouble, an add-on fan will almost 





certainly solve it. First, though, you 
might try setting up an ordinary 
household fan to gently waft air 
over your whole computer system, 
This might provide adequate cool- 
ing and also has the advantage of 
keeping you cooler, too. Another 
alternative is to operate your 1541 
during the summer months with 
the top cover removed (unless your 
neighbors or family members com- 
plain about RF interference). Re- 
place the cover between work 
sessions to keep out dust. 

As personal computers grow 
more and more powerful, and as 
memory chips grow increasingly 
dense, it’s likely that we'll see more 
built-in fans. Most home computers 
have omitted fans up to now be- 
cause of the added manufacturing 
costs and the extra noise, which is 
more obtrusive in a home environ- 
ment than in a busy office. 


Q. Is it possible to interface 
an Atari 825 printer to a Commo- 
dore 64? I’ve been told the 825 is 
actually a Centronics 737 printer, 
and it should be possible. What 
kind of interface can handle hi- 
res screen printouts as well as 
word processing chores? 


A. The Atari 825, first intro- 
duced about eight years ago for the 
old Atari 400/800 computers, is in- 
deed a Centronics printer in dis- 
guise. It therefore works with a 
Centronics-standard parallel inter- 
face. These interfaces are available 
for the Commodore 64; check with 
your local Commodore dealer. 
Graphics screen dumps and 
text output shouldn’t be a problem; 
in fact, the Atari 825 supports pro- 
portionally spaced printing, if your 
word processor allows you to ac- 
cess such special features. How- 
ever, remember that the Atari 
printer won't support the special 
Commodore character set. @ 
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BASIC 
beginners 


Larry Cotton 


This month we'll learn how to 
round numbers in BASIC, 

There are many reasons for 
rounding off numbers. If you want 
to split a dollar bill with two 
friends, you can’t give each of them 
33.33333... cents—you give them 
each 33 cents, and keep 34 cents for 
yourself, 

Another reason to round off 
numbers is to produce a neater dis- 
play. Sometimes we want a number 
to fit into a certain field on the 
screen. If a mathematical calcula- 
tion produces a number such as 
34.36437, for example, we can 
round it to any lesser degree of ac- 
curacy we wish. 

If we want to round a number 
to two decimal places, we look at the 
digit in the third place to the right of 
the decimal point (in this case, it’s a 
4), We then compare it to 5. If it’s 
equal to or greater than 5, the digit 
to its left (in this case, 6) is increased 
by 1. If the examined digit is less 
than 5, the number to its left is not 
changed. Thus, 34.36437 rounded 
to two decimal places is 34.36. 

If we want to round to one dec- 
imal place, we look at the second 
digit to the right of the decimal—in 
this case, a 6. Comparing it to 5 and 
finding that it’s greater, we increase 
the number to the left of the 6 (3) by 
1, Therefore, 34.36437 rounded to 
one decimal place is 34.4. 


Rounding in BASIC 

In BASIC, the general rounding for- 
mula uses two operations we've 
covered recently—finding the inte- 
ger value of a number (INT) and 
raising a number to a power (multi- 
plying a number by itself): 
R=INT(N*10°D +.5)/10°D 

R is the rounded number that you 
seek, N is the number to round, and 
D is the number of decimal places 
you wish. 
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Let’s write a short rounding 
program which asks the user to en- 
ter numbers to round: 

10 PRINT“{CLR}” 

20 PRINT:PRINT” WHAT NUMBER DO 
YOU WANT TO ROUND?” 

30 PRINT:INPUT” ”;N 

40 PRINT:INPUT” TO HOW MANY 
DECIMAL PLACES?”;D 

50 R=INT(N*10°D +.5)/10°D. 

60 PRINT:PRINTR 

70 PRINT:PRINT” ANOTHER NUMBER 
(y/NY2" 

80 GETAS:IF AS<>"Y") AND (AS<>"N") 
THEN 80 

90 IF AS= “Y” THEN RUN 


Run the program and enter 
453.567552 at the first prompt and 
3 at the second. Below is a descrip- 
tion of how it works. 

Line 10 clears the screen. Lines 
20 and 30 print a blank line and ask 
the user to type in a number. When 
he or she enters 453.567552 and 
presses RETURN, the INPUT state- 
ment assigns that value to N. 

Line 40 gets the number of 
places to which you wish to round 
the number. The 3 that we entered 
becomes the value for D. 

Line 50 is the heart of our pro- 
gram; it calculates a value for R 
using the formula mentioned above: 
R=INT(N*10°D+.5)/10°D 


Let's take a closer look. Recall 
the order of math operations that 
we've covered over the last couple 
of months: 

1, Parentheses 

2. Raising a number to a power 
(multiplying a number by itself) 

3. Multiplication and division 

4. Addition and subtraction 

Our rounding formula will be 
executed in the above order, so let’s 
attack the parentheses first: 
(N*10°D+.5) 

Within the parentheses, the 10 will 
be raised to the power of D (10 will 
be multiplied by itself D times). Since 
the value for D is 3, 10 will be mul- 
tiplied by itself three times; it be- 
comes 10 times 10 times 10, or 1000. 





Rounding 


After that, the multiplication 
within the parentheses takes place. 
Let’s multiply N (453.567552) by 
1000. The easiest way to do that is 
to move the decimal in a direction 
that will make the number 1000 
times larger (that’s to the right three 
places). The result is 453567.552. 

We're still inside the parenthe- 
ses. Add .5 to 453567.552 to get 
453568.052. Now take the INT of 
that number. Remember that INT 
simply drops all decimal places to 
leave a whole number. The result is 
453568. 

What's next? Dividing by 10? 
Or dividing by 10°D? Remember: 
powers before multiplication. Raise 
10 to the third power again to get 
1000. Now the formula is reduced to 
R=453568/1000 


Finally we divide to get an an- 
swer of 453,568, which should have 
been the result of running the pro- 
gram and entering the two suggest- 
ed values. Line 60 prints the answer. 

Line 70 asks the user if he or 
she wants to round other numbers. 
Line 80 waits patiently for either Y 
or N ( Yes or No) to be typed. If Y is 
typed, line 90 is executed and the 
program runs from the beginning. 
If N is typed, the program ends (an 
END statement isn’t necessary). 

Try entering various numbers 
to round and different numbers of 
places to which they should be 
rounded. If you type a value for D 
greater than the number of decimal 
places, you may get an overflow 
error. 


Rounding vs. the INT Function 
Please don’t confuse rounding a 
number with finding its integer val- 
ue. Finding a number's integer val- 
ue always just drops the digits after 
the decimal, leaving a whole num- 
ber. Rounding can be done for any 
number of decimal places. While 
the INT function always produces a 
number less than or equal to the 
original number, rounding in- 








creases the number half the time and decreases it the 
other half. 

Let's take the number 10.583. Rounded to one deci- 
mal place, the number is 10.6. To zero decimal places, 
the number is 11, The integer value of 10.583 is 10. 


Uses for Rounding 
Let’s discuss money. In America we usually round to 
two places (hundredths of a dollar, or cents), so we can 
specialize our rounding formula. Start with 
R=INT(N*10°D+.5)/10°D 

And substitute 2 (two decimal places) for D: 
R=INT(N*10°2+,5)/10°2 

Raising 10 to the second power, or squaring 10, 
yields 
R=INT(N*100+.5)/100 


It's a temptation, but we cannot add 100 and .5 to 
get R=INT (N*100.5)/100 because that would violate 
the correct hierarchy of operations—N must be multi- 
plied by 100 before we add .5. 

Since 100 appears twice in the formula, we can as- 
sign a variable name to it first. Let's use H (for Hundred): 


H=100:R=INT(N*H+.5)/H 


Here's a program that will compute the average 
price (to the nearest cent) we pay for something when 
we buy a certain quantity. We'll use our specialized 
rounding formula: 


10 PRINT”{CLR}” 

20 INPUT” HOW MANY WILL YOU BUY";Z 

30 PRINT” PRICE FOR"Z"{LEFT}?” 

40 PRINT:INPUT” ";P 

50 N=P/Z:REM ACCURATE PIECE PRICE 

60 H=100:R =INT(N*H+.5)/H:REM THIS IS OUR 
SPECIALIZED ROUNDING FORMULA 

70 PRINT:PRINT” AVG. PRICE EA. ="R 

80 PRINT:PRINT”ANOTHER (Y/N)?” 

90 GETAS:IF (AS<>“Y”) AND (A$<>"N") THEN 90 

100 IF A$="Y" THEN RUN 





Game Scoring 
Another common use for rounding is in scoring games. 
We can create a specialized formula that uses 0 as the 
value for D, since we want our result rounded to a 
whole number, with no decimal places. 

We start with our general formula: 
R=INT(N*10°D+.5)/10°D 

And substitute 0 for D: 
R=INT(N*10°0-+.5)/10°0 

This yields an interesting result based on a strange 
mathematical rule: Anything raised to the power of 0 is 
1. Thus, X to the power of 0 is 1, 14 to the power of 0 is 
1—even 1254678 to the power of 0 is 1. Try a few in 
immediate mode: 
PRINTX‘0 
PRINT14°0 
PRINT1254678°0 

Accordingly, 10 to the power of 0 is 1: 
R=INT(N*1+.5)/1 or R=INT(N+.5) 


Voila! A new formula for rounding to whole num- 
bers. Let’s write a short program to calculate average 
shots per hole in three rounds of golf: 


10 PRINT“ {CLR}" 

20 INPUT” FIRST ROUND’;R1 

30 IF R1<>INT(R1) THEN GOSUB200:GOTO20 

40 Z=R1:GOSUB300 

50 INPUT” SECOND ROUND”;R2 

60 IF R2<>INT(R2) THEN GOSUB200:GOTOS0 

70 Z=R2:GOSUB300 

80 INPUT” THIRD ROUND”;R3 

90 IF R3<>INT(R3) THEN GOSUB200:GOTOS0 

100 Z=R3:GOSUB300 

110 TS=R1+R2+R3:PRINT” TOTAL SHOTS FOR 3 
ROUNDS:"TS 

120 N=TS/54:REM 54 HOLES IN 3 ROUNDS 

130 R=INT(N+.5):REM SPECIALIZED ROUNDING 
FORMULA 

140 PRINT:PRINT” AVG. SHOTS PER HOLE FOR 3 
ROUNDS:’R 

150 END 

200 PRINT:PRINT” NO DECIMALS, PLEASE!” 

210 PRINT:RETURN 

300 N=Z/18:REM 18 HOLES PER ROUND 

310 R=INT(N+.5):REM SPECIALIZED ROUNDING 
FORMULA 

320 PRINT:PRINT” AVG. SHOTS PER HOLE:’R 

330 PRINT:RETURN 


Golf scores don’t contain fractional values, so lines 
30, 60, and 90 check for this by comparing the INPUT 
numbers with their integer values. If they’re not the 
same, a decimal value must have been entered and the 
questions are repeated. 

Lines 40, 70, and 100 make Z equal to R1, R2, and 
R3 in succession, so one subroutine at lines 300-330 (to 
calculate average shots per hole) can be used repeatedly. 

The rounding formula, custom-tailored for whole 
numbers, is used in line 310 to round scores to values 
which contain no decimals. @ 


























C-64/128 soltware List$ Our$ C-64/128 software List $ Ours 
Airborne Ranger $35 $24 Might & Magic #0 $28 
Aliens $35 $24 ML Wresting 0 $21 
B-24 $35 $24 NBA 10 $28 
Bard's Tale | or Il $40 $28 Patton & Rommel 0 $21 
Battles - Civil War $40 $28 Phantasie Ill 0 $28 
Beyond Zork $45 $31 Pirates $40 $28 
Califomia Games $40 $28 Presidentis Missing $25 $19 
Chuck Yeager AFT $35 $24 Questron Il $40 $28 
Defender - Crown $35 $24 Sabed $35 $24 
Dragon's Lair $25 $18 Skate or Die $30 $21 
$40 $29 Sons of Liberty $35 $24 
ames: Winter ed $40 $28 Stealth Fighter $40 $28 
Gauntlet $35 $24 Strike Fleet $30 $21 
Gunshi $35 $24 Test Drive $30 $21 
Hunt Hod October $40 $28 $35 $24 
ri Warrior $35 $24 35 $24 
40 $29 largame Constr, $30 $21 
ast Ninja $35 $24 Wizardry | $40 $28 
Maniac Mansion $35 $24 Wooden Ships $35 $24 
Same Day : 
Shipping 
Just call us before 3:30 
and we'll ship your order 
today by UPS. Your package 
is only days away with Tevex. TEVEX 
ipree}40 nage catalog wih 4205 First Ave #100 
re falog wit 
your first order. We stock Tucker, GA 20088: 
hundreds of C-64 games. 404-934-5059 
Mlode phone ntbet. SHIPPING-US xdrs We accept 


add $3.00 for shipping and handling charge. 
Georgia residents add 4% sales tax, 


Visa or Mastercard 
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macnine language 
programming 


Jim Butterfield 
Contributing Editor 


Pointers are important in machine 
language programming. A pointer 
(sometimes called a vector) is a two- 
byte number that holds an address. 
It points to something—a string, an 
item in a table, or some other sort of 
data. It can even point to another 
pointer, 

Machine language program- 
mers often use pointers as loop con- 
trols. Before the loop, the pointer is 
set up to point to a certain address, 
often the start of a table in memory. 
As the loop repeats, the pointer is 
moved along to succeeding entries 
in the table. Of course, the pointer 
is regularly tested to see if it has 
gone beyond a preset limit. 


System Pointers 
Two examples specific to the Com- 
modore 64 will illustrate the useful- 
ness of pointers. First, to go through 
screen memory, we would initialize 
the pointer to the address of the 
start of the screen: that’s $0400 
(1024 decimal). To go to the next 
line, we would add $28 (40 deci- 
mal) to the pointer, We could count 
25 lines or we could test to see 
when the pointer exceeds a value of 
$7CO0 (1984 decimal), the address of 
the last line in screen memory. 

Here’s another example. To 
look through BASIC’s variables, we 
would set the pointer to match the 
contents of addresses $2D and $2E 
(45 and 46 decimal, the Start of 
Variables pointer). Since each vari- 
able entry occupies seven bytes, we 
add 7 to the pointer to step to the 
next variable. We know we're done 
when the pointer reaches the value 
contained in another pointer found 
at addresses $2F and $30 (47 and 48 
decimal, the End of Variables/Start 
of Arrays pointer). 

As the pointer’s value moves 
from address to address, we will 
need to access the contents of these 
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addresses. Two of the 6502's ad- 
dressing modes are perfect for the 
job. Indirect addressing allows us to 
reference an address through a 
pointer. A related mode, indexed 
indirect addressing, uses the Y reg- 
ister to point to a certain byte offset 
from an indirect address. 

The jargon of addressing 
modes can be hard to decipher. An 
example is in order. 


Two-Letter Words 

The program given here asks the 
user to input two-letter words, Each 
time such a word is entered, it’s 
checked against all previously en- 
tered words. If a match is found, the 
program terminates, printing aster- 
isks. If no match is found, the new 
word is added to a table of previ- 
ously entered words. 

We build the table and check it 
by means of pointers. One pointer 
shows the last entry in the table— 
it's kept at $20FO (8432 decimal). 
The other pointer scans through the 
table, looking for a match; it’s at 
$FD and $FE (253 and 254 decimal) 
in zero page. There is no limit to 
how large the table may be. 

The program is simple, but it 
shows how pointers are handled. 


Mechanics 

Let’s take a look at a few critical 
parts of the program. The pointer at 
$FD and $FE is set up to scan mem- 
ory starting at address $2100 (8448 
decimal). Here’s how we set it up: 


2035 4A 00 LDA #$00 
2037, «~A2 21 LDX #$21 
2039 «+85 FD STA $FD 
203B 486 FE STX SFE 


We must test the pointer to see if it 
has gone beyond the table limit, as 
logged in the pointer at $20F0. A 
good way to compare two-byte 
pointers is to compare and subtract: 


203D AD FO 20 LDA $20F0 


2040 «3C5 FD CMP SFD 
2042 «AD Fil 20 LDA $20 
2045 «ES FE SBC $FE 











Pointer Loops 


2047, «BO «19 BCS $2062 


If the carry flag is clear, the 
pointer at $20F0 is less than the one 
at $FD. In this case, we've passed 
the end of the table, so we will up- 
date the table by storing the new 
data. But if the carry flag is set, we 
continue to search the table. If no 
match is found, we'll increment the 
pointer with 


2073. «+A5 FD LDA $FD 
2075. +A6 FE LDX $FE 
2077. «—«18 cLC 

2078 «69 «402 ~ADC #$02 
207A «90 ~BD BCC $2039 
207C~—OES. INX 

207D BO BA BCS $2039 


The BCS above will always 
branch. We'll store the pointer back 
into $FD after we get back to $2039. 


Try It 

This was a simple example, but it 
gives you a chance to see the three 
parts of pointer loops: setup, limit 
test, and incrementing. If you want 
to try the program, you can type in 
and run this BASIC loader. If you 
have a machine language monitor, 
use it to view the entire machine 
language program, 

100 DATA 169,254,162,32,141,240 

110 DATA 32,142,241,32,169,63 

120 DATA 32,210,255,32,207,255 

130 DATA 201,65,144,244,201,91,176 

140 DATA 240,141,244,32,32,207,255 

150 DATA 201,65,144,230,201,91,176 

160 DATA 226,141,245,32,32,207,255, 

170 DATA 201,13,208,216,32,210,255 

180 DATA 169,0,162,33,133,253,134,254 

190 DATA 173,240,32,197,253,173,241 

195 DATA 32,229,254,176,25,160,0 

196 DATA 173,244,32,145,253,173,245 

197 DATA 32,200,145,253,165,253,141,240 
198 DATA 32,165,254,141,241,32,208,168 
199 DATA 160,0,173,244,32,209,253 

200 DATA 208,6,200,173,245,32,209,253 

210 DATA 240,12,165,253,166,254,24,105 
220 DATA 2,144,189,232,176,186,162,0 

230 DATA 169,42,32,210,255 

240 DATA 232,224,16,208,248,96 

300 FOR J=8192 TO 8331 

310 READ X 

320 T=T+X 

330 POKE JX 

340 NEXT J 

350 IF T<>22019 THEN STOP 

400 REM SYS 8192 @ 











hints tips 


Boolean Magic on the 64 
Vincent D, O'Connor 


One of the nicest features of the 
128’s BASIC 7.0 is the IF-THEN- 
ELSE statement. If you’re unfamil- 
iar with this command, here’s an 
example of how it can be used in a 
program: 


HM 100 PRINT "ANSWER (¥/N) "7 
DA 110 GET AS:IF AS="" THEN GO 
70 110 

IF AS="Y" THEN GOTO 140 
tELSE IF AS="N" THEN G 
oTo 159 

GoTo 116 

PRINT "{CLR}YOUR ANSWER 
WAS YES":END 

PRINT "{CLR}YOUR ANSWER 
WAS NO" 


QG 120 


XK 130 
GE 140 


Qs 150 


The advantage of this com- 
mand is that you save memory and 
increase speed by not having to use 
multiple IF-THEN statements. 

Although the 64’s BASIC 2.0 
doesn’t have an IF-THEN-ELSE 
command, there’s a way to simu- 
late it using the ON-GOTO state- 
ment and Boolean, or two-valued, 
logic, Here’s how the example pro- 
gram could be written for the 64: 


HM 100 
DA 110 


PRINT "ANSWER (Y/N) "j 
GET AS:IF AS="" THEN GO 
TO 110 

ON -((AS="¥") + 2*(AS=" 
N")) GoTo 144, 150 
GOTO 118 

PRINT "(CLR}YOUR ANSWER 
WAS YES":END 

PRINT "{CLR}YOUR ANSWER 
WAS NO" 


BE 126 


XK 130 
GE 140 


Qs 150 


As you can see, the only 
change is in line 120, where the use 
of the ON-GOTO is substituted for 
the IF-THEN-ELSE used in the first 
example. 

Here’s how it works. When 
BASIC evaluates a comparison, it 
determines a value based on 
whether the comparison is true or 
false. If the comparison is true, 
BASIC returns —1. If it’s false, it re- 
turns 0. In the example program, if 
A$ equals Y, then the expression 
(A$="Y") is true and is evaluated 








as —1, while the expression (A$= 
“N”) is false and is evaluated as 0. 

The rest is simple math, BA- 
SIC’s order of operations requires 
that multiplication and division be 
performed before addition and sub- 
traction, so if the answer is “yes,” 
A$ = “Y” will evaluate to —1 and 
A$ = “N” will evaluate to 0. Sub- 
stituting these values in the state- 
ment in line 120, we have 
—(-1) + 2°) 

Since multiplication must be 

performed before addition, 2 * 0 
equals 0, and —1 + 0 equals —1. 
The initial minus sign causes this 
—1 to become +1, and the first 
GOTO is executed, causing a 
branch to line 140. The opposite 
would be true if A$ were equal to 
“N.” BASIC would evaluate the ex- 
pression as 
—(@) + 2*(—1) 
Performing the multiplication first, 
this is further simplified to —(—2), 
which is +2, causing the second 
branch following the GOTO to be 
taken. 


BASIC Directory Printer 
Joseph R. Charnetski 


There are so many situations in 
BASIC programs that call for a di- 
rectory listing on the screen. Unfor- 
tunately, on the 64, loading a 
directory erases the program cur- 
rently in memory. With this handy 
utility, you can display a directory 
without altering a byte of your pro- 
gram. And, if you include this short 
routine in your program as a sub- 
routine, you can instantly access 
the directory as often as you like. 

The routine reads the directory 
from the disk and prints it on the 
screen without loading it into the 
computer's memory. If the directory 
scrolls off the screen too quickly, 
press any key to pause or continue. 
You can also exit the routine at any 
time by pressing Q (Quit). 








64 and 128 Tricks 





DM 16 OPEN15,8,15,"I@":0PEN8,8 
0,83" 

EE 26 GET#8,AS,BS:NS=CHRS (0) 

FG 30 GET#8,AS,B$:1F BS=""THEN 
106 

ME 40 GET#8,AS,B$:A=ASC(AS+NS) 
:B=ASC(BS+NS) 

KS 5@ CS=MID$(STR$(A+256*B) ,2) 
+CHRS$ (32) 

MF 60 PRINT CS;:GET#8,CS:IFCS$< 
>""THEN6O 

AS 70 PRINT:GETKS$: IFKS=""ORKS= 
"Q"THENIO 

XB 80 GETKS: IFKS=""THEN8O 

XQ 90 IFKS<>"Q" 





GA 100 CLOSE8:CLOSE15 


SHIFT-RUN/STOP Disable 
for 128 
Andrew Beltran 


The SHIFT-RUN/STOP key com- 
bination loads the first program on 
the disk in 128 mode. This can be 
useful and time saving, but it can 
also cause problems. It’s easy to 
accidentally hit the SHIFT-RUN/ 
STOP key combination, causing the 
first program on the disk to load 
and your program in memory to be 
erased. 

There are three ways to cir- 
cumvent this disaster. The first is to 
simply have the first file on the disk 
be SEQuential. BASIC won't be 
able to load and run this file, so 
your program is safe. Another solu- 
tion is to leave the disk drive door 
open while you're programming 
and close it when it’s time to save 
your work. Neither of these solu- 
tions is very appealing, however. 

The following one-line pro- 
gram will disable the SHIFT-RUN/ 
STOP key combination and protect 
you from accidental disaster. 

1 POKE 4104,0:FOR 1=4159 TO 4164: 
POKE 1,PEEK(+9):NEXT 

One easy way to use this short 
program is to put it in an autoboot 
file on the disks you use for pro- 
gramming. That way, the SHIFT- 
RUN/STOP combination will be 
disabled when you need protection, 
and it'll be operative otherwise. @ 
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diversions 


Fred D'Ignazio 
Contributing Editor 


At dinner the other night at the 
New Jersey Computer Conference, 
I got to hear a vintage hacker story 
that I'd like to share with you. 

Brian Silverman and Margaret 
Minsky were reminiscing about the 
fun they used to have as grad stu- 
dents in the mid-1970s, living with 
a bunch of crazy computer hackers, 
including Danny Hillis (cofounder 
of Thinking Machines and designer 
of the Connection Machine, per- 
haps the world’s fastest super- 
computer), 


The Conversation 

“One day,” said Brian, ‘‘Danny 
brought home a bunch of Tinker- 
toys. Since we were MIT students, 
we set out to prove you could make 
logic gates out of the Tinkertoys. 
We had built several AND gates 
and OR gates, when someone sug- 
gested we try making an entire 
computer out of Tinkertoys, We 
worked on that idea for quite a 
while but finally gave it up. We had 
decided that we could do it, but a 
Tinkertoy computer as sophisticat- 
ed as a Motorola 6502 would have 
barely fit in the biggest domed sta- 
dium in the world. 

“The same group,” continued 
Margaret, ‘went on to found Terra- 
pin (home to robots and Terrapin 
Logo). Our first project at Terrapin 
was a cute little robot turtle that just 
happened to appear at the same 
time as the first Star Wars movie. 
We got calls from all over the world 
about our robot, including a call 
from Harry Loucks, who wanted us 
to design a robot for his new muse- 
um, the Mid-America Center, in 
Hot Springs, Arkansas. We all re- 
membered the fun we had with the 
Tinkertoys and asked him if he 
wanted a Tinkertoy, tic-tac-toe- 
playing computer instead of a ro- 
bot. We didn’t see any big trouble 
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going from a few logic gates to a 
computer, Harry said that would be 
great, and would we please deliver 
the computer as soon as possible,” 

“There were a few false starts,” 
said Brian. “Then we spent a couple 
of all-nighters working on the com- 
puter at MIT’s AI Lab. We used tons 
of computer power and came up 
with a ten-page blueprint for a 
computer that used a few logic 
gates but lots of software. After that 
we spent a month building. 

“It had shafts with eccentric 
wheels, several dozen cams, fishing 
sinkers, fishing line, escutcheon 
pins, I remember it was about four 
feet long, about three feet wide, and 
three feet high.” 

“And it came in two pieces,” 
added Margaret. ‘’That was the 
only way it would fit into the U- 
Haul trailer we hitched to a Chevy 
Suburban. Somehow, we squeezed 
in ten people and drove nonstop 
from Cambridge to Hot Springs.” 

“Almost nonstop,” said Brian. 
“When we got there in the middle 
of the night, we put the two pieces 
together, and our Tinkertoy com- 
puter worked just fine.” 

“For one game,” said Margaret 
sadly, “Then it stopped and never 
worked again.” 

“That's right,”’ said Brian, 
shaking his head. “We went home 
a little disappointed.” 

“What happened then?” I in- 
terrupted. “Did they make you take 
the computer home with you?” 

“Nope,”’ said Brian. ‘They 
kept it. But two years later, in 1979, 
or so, Danny got a call from Harry 
Loucks. He said, ‘Your computer 
still doesn’t work. Is there anything 
you can do to fix it?’ 

“We decided we would have to 
rebuild the computer from scratch. 
The first time I had designed the 
computer using the MIT AI Lab 
computers. This time I had a little 
desktop computer with maybe a 
millionth the computational power, 


The Tinkertoy, Tic-Tac-Toe- 
Playing Computer 


so I decided I had better take a more 
clever approach.” 

“Brian never finished the de- 
sign,” said Margaret; “we were all 
so eager to begin the new com- 
puter. We descended on Hot 
Springs and Harry’s museum from 
all four points of the compass. We 
rolled up our sleeves as soon as we 
arrived and started building.” 

Brian added, “We sat on the 
middle of the floor and were a ‘live’ 
museum exhibit while we built the 
new computer. This time we 
weren’t so purist, Some of the 
Tinkertoys we replaced with wood- 
en dowels which we fashioned with 
a concrete drill in Harry's base- 
ment. We reached the end of the 
part I had designed after only two 
days.” 

“So we just kept building,’’” 
said Margaret. “It took us a little 
longer, but we built it right there in 
the middle of the museum, And it 
worked! I called them a couple 
years ago, and they said it’s still 
working.” 

“It may even be working yet,” 
said Brian. 


Historical Footnote 

A historical footnote: Digital Equip- 
ment Corporation (DEC) took the first 
Tinkertoy, tic-tac-toe-playing com- 
puter and installed it in their Com- 
puter Museum in Boston. 

T placed a call to the Mid-America 
Museum in Hot Springs, and the Ex- 
hibits Director, Lee Sutton, told me 
that the second Tinkertoy computer 
had finally been dismantled. ‘‘It 
worked just fine,” said Sutton. “In 
fact it was impossible to beat. But 
we're a hands-on museum, and too 
many hands on the Tinkertoys and it 
would just come apart.” 

Do you hear that, Brian? Marga- 
ret? Danny? Maybe it’s time for the 
Tinkertoy Gang to reassemble and 
make a third trek to Hot Springs. Stay 








tuned, There may be a sequel to this 
column. @ 


Buyer’s Guide to 
_ Music Composition and) 
Programming Software 


Caroline D. Hanlon 


/ Music makes the world go round. It can also soothe the savage breast and lull babies to sleep. 

The Commodore 64 and 128 possess the ability to play music and create fascinating sound 
effects—either as stand-alone units or linked to MIDI. Both amateur and professional 

» musicians can create their own tunes, or modify existing pieces, with the music composition 
programs found in this buyer's guide. Most of these packages are designed for use with MIDI. 





Product Information 


The products listed here con- 
tain information in the follow: 
ing order: title, publisher, 
additional requirements (if 
any) for program use, and — 
suggested retail price, 











) Advanced Music System 
Firebird i 
(Distributed by Activision) 
$59.95 
A music creation and editing program, Ad- 
vanced Music System is designed for profes- 
sional musicians. It consists of six integrated 


while the keyboard: 

board to be used as the music entry device. The 
synthesizer module allows sonic tailoring of the 
waveform and output of the computer's SID 
chip. The linker feature helps merge and chain 
passages to develop full-length compositions. 
The MIDI capability allows control and playback 
through conventional MIDI keyboards and syn- 
thesizers, And with the printer module, music 
files with lyrics can be printed on dot-matrix 
printers. The program contains icons and pull- 
down menus. 


Algorithmic Composer 
Dr. T's Music Software 
$99 g 
Three programs—Series, Phrase, and SAC 
(Stochastic Algorithm Composer)—are includ- 
ed in this package, With Series, users can enter 
individual series of pitches. Phrase helps users 
“generate musical themes using a three-octave 
scale, and SAC allows the creation of four-part 
harmonies and themes, The programs can play 
the sequences they create or store them in the 
Keyboard Controlled Sequencer format. 


Caged Artist Editors 

Dr. T's Music Software 

$99 

Caged Artist Editors is an assortment of editors 
and librarians to edit patch parameters. The edit 
scréen displays the patch parameters and high- 
lights the parameter being edited. Patch param- 
eter values can be changed by typing in the new 
value or incremented or decremented using the 
joystick or keyboard input. More than one set of 
patches can be held in memory at one time, and 
the voice parameters can be printed. Individual 
editors include the 4-Op Deluxe, Kawai K3, 
Lexicon PCM-70, Oberheim Matrix 6, and the 
Roland JX-8P. 


Casio Sound Disk 

Sonus 

Casio CZ-101, 1000, or 5000 syn- 
thesizer; MIDI interface card 
$49.95 


The Casio Sound Disk contains ten banks of 
sounds to use with the Casio line of 
synthesizers. 


Convertifile Plus 

Dr. T's Music Software 

Music Shop 

$75 

This utility can help the user convert Dr. T’s 
Keyboard Controlled Sequencer or Passport 
MIDI 8-+ files to Music Shop format for editing 
and scoring in music notation format, 


CZ-Patch 

Dr. T's Music Software 
Synthesizer 

$99 


With this editor and librarian, musicians can cre- 
ate, edit, and store patches on the Casio CZ- 
101, 1000, 3000, and 5000 synthesizers, Sets 
of 16 patches can be stored on disk or trans- 
ferred between the computer and the Casio 
memory. The Commodore version holds three 
sets of patches at once. Envelope parameters 
can be copied from one envelope to another 
within a patch, rescaled, and copied to other 
patches. The data can be displayed as rates and 
levels. There is a fast edit mode so program- 
mers can experiment with a variety of values 
with a minimum of keystrokes. Sequences from 
the Keyboard Controlled Sequencer can be 
played with the program. 





LET'S FACE IT— MAIL ORDER HOUSES ARE WOT ALL THE SAME! 


a CONVENIENCE—FAST SERVICE— RELIABILITY —SUPPORT 


During the inception of Software Support Intemational, we examined the customer support 
policies of many Commodore mail order houses. One thing became quite evident: MAIL ORDER 
HOUSES ARE NOT ALL THE SAME! Software Support International has developed customer 
‘support policies you can relate to. 
“CONVENIENCE: Our toll ree order ine, for instance, saves you money and adds thé convenience 
‘of fingertip shopping. After hours order ines are provided for late night or early morning shopping. 
*FAST SERVICE: 24 hour processing, insures your purchase wil be received in a timely manner. 
‘RELIABILITY: Policies such as NOT charging your charge card or cashing your check until 
shipping, replacing detective materials as quickly as possible and letting you know when an item 
Is backordered, all adds up to policies you can trust. 
*SUPPORT: Our technical support line is manned by some of the most knowledgable Commodore 
experts around. 

ur catalog, listing detailed information on our products as well as hundreds of others, is mailed 
automatically to our regular custmers. If you have never ordered from us, but would like to see 
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why thousands of fellow Commodore users have chosen us as their main source of software and Gear. Santee 
‘accessories, simply pick up the phone and give us a call, or drop us a line requesting our Spring! Si ae boxing 
‘Summer 1988 catalog. Remember, our business is SOFTWARE SUPPORT! Boung Teens 
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MANY OTHER TITLES AVAILABLE — CALL FOR PRICES! 











Now that Commodore has rel 

















98 you withthe abit to scroll through vido me 
hanced color resolution. 

Up unti now, to upgra 

to first search out the components, then find a competent repair out 
to desolder and instal the parts, What a hassle! 

SOLUTION — We have developed a modu 
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program to validate proper instalation and th plugin upgrade module 


onwy $34.95 


Helper is an exciting new type of Software for the C-128 

Computer with 80 column monitor 

* Screen Based Databasing 

* User Detinable 

* Editar allows modifications 

‘© Demo included that serves as a Basic 7,0 Electronic 
relerence manual 

* Screen dumps to printer 

#1581 version available 


ONLY $24.95 









ed the C-1280 with 64K of video RAM, 


Wo should be seeing 128 programs address this fantastic new feature 
soon, 

BASIC 8 alroady has tho capabilty of using all 84K of video RAMI! you 
‘own the C-128 In stock condition, you own all 16K of video RAM that 
Commodore tet was 


cossary. Using Basic 8 format and the ful 64K 





the C-128 to 64K of video RAM you would have 





simply plugs into the 
‘mother board of your C-128, No splattered solder — No heat damage 


‘This package Includes full easy to follow installation instructions, a test 
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Top quality graphics are hard to find. These will definitely 
please you 

* 10 Volumes available 

© Themes followed in most 

© Printmaster'*/Printshop’™ Side A compatible 

asily transferred to 1581 


ONLY $14.95 per Volume 
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+ Single or Dual High Sp Pp 

% Single oF Dual State of the Art Nibbler 
% Ditoctory Editor: Organize your Disks. 
* GCR Editor: For the Experienced Hacker 

%* Gos" Modual: PARAMETERS and TOOLS 
+ 200 Parms: For those tough to backup disks 
# Now Paramoter updatos only $9.95 each 











‘ably Iow price. And, un 
Renegade is produced ty that knows 


Rene, 








This is the ultimate label utility 

© Databasing with graphics included 

* Supports Commodore as well as Epson compatible 
printers 

+ Printmaster’* Printshop’* Software Solutions’ 
compatible 

* 1581 transferable 

* Satistaction guaranteed! 


ONLY $24.95 








Elite V3 copies the “impossible,” 

© Copies V2.0 of a popular 64/128 planner 
(64 only), writer 

© Leaves the Backup protection tree 

Why pay for Backups of tiles you already own? 


ONLY $6.95 


filer 





Our Elite Series is second to none for its copying 
capabilities 

© Elite 4 created to copy titles protected to the MAX! 

© Special MAX Copier included 

* Update policy included 

Free Bonus—The Shotgun | 


ONLY $14.95 


The total copy/utlties package created just for C128 
owners 

© Nibblers—Single or Dual 

+ Fast Copiers—Single or Dual 


hottest archival programmers in the indus 


zl 


Compatable with C-64-128 with 1541/71 Drives 


‘fom taking TOTAL control of your softwi 


Only $34.95 
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u the most advanced tools 
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Kracker Jax is the powerful parameter-based copying 
system that has taken the country by storm! What IS a 
parameter? It's a custom program that allows your 1541 
of 1571 disk drive to strip ALL copy protection from your 
expensive software, leaving you with UNPROTECTED, 
TOTALLY BROKEN BACKUPS that can even be copied 
with a simple fast copier! 

We declare Kracker Jax to be the best system of its 
kind on the market today! A bold claim? Maybe 

But don’t take our word for it—if you want the REAL 
story on how good Kracker Jax is, just ask one of our 
customers. Don't worry. You won't have any problem 
finding one 


Vols 1-2-3-4 Only $9.95 ea. 
Vols 5-6-7 Still Only $19.95 ea. 





+ File Coplers—Single or Oual 
© Scanners—Error and Density 

© 1581 Utilities 

* Directory editing 

* 100 Free Kracker Jax Parms 

* 1541/71/81 Drives Supported—Single or Dual 


ONLY $34.95 










State of the art tools for the computerist ready to take 
Control of his software library! 

Whole disk scanners 

© GCR Editor 

* Fast Dala/Nibble copiers 

© File tracer 

Byte Pattern Finder 


Much, Much More—$19.95 











The greatest disk library cataloger ever produced for the 
Commodore 64 

© Catalogs up to 640 Disks w/5000 titles per catalog 

‘© Twice as many with 2 drives 

* Load, save, edit, change any entry 

Prints a variety of reports and even labels 

* Lightning fast and easy to use! 


ONLY $24.95 


‘ORDERING is sno. wo acept money orders, certod checks, personal checks on) on pre approval, VISA, 
NC, Discover and COD, Please nd $3.00 shigping and handing per order, $200 atonal or COD orders 
(Orders cutsid of Noth Arca please cal fr sping charges. Dect tems wil be replaced at no charge 
Instock orders aro processed win 24 brs. Returs are rok acceped without authorization #. Washinton 
Residents pleas add 75% sles tx. Sotware crdors oer $100.00 wil be shipped UPS 2nd Day Al at no 
addtional chargo-US. 48 state only. All pees subject to change 


DEALERS — WE HAVE THE SUPPORT YOU'RE LOOKING FOR! 








Our knowledge of protection schemes has made us 
famous. Now find out how we do what we do best. Our 
books are your key 10 REAL knowledge, OTHERS ONLY 
GIVE SURFACE INFO—we dig deep—much deeper, We 
can show you exactly how today's copy protection 
prevents you from backing up your software 


Revealed Book | with Reset Button 
$23.50 


Revealed II with Hesmon Cartridge 
$23.50 





2700 


Or 


Att 


(206) 695-9648 7 days « week 
Technical support available. Call 
(206) 695-9648, 9am-5pm Pacific time, 
Monday-Friday. 


1-800-356-1179, dam-Spn 
Monday-Friday. 












The best—and we mean Best Basic enhancement system 

for the 0-64 

* Adds over 25 major commands to Basic 

* Extended Super D0S-Wedge 

* Scrolling through Basic 

* Renumber, Trace, Search, and many other features too 
numerous to mention 

© 1541/71 fast loader included 

© M/L monitor trom Basic 

«© Transterable to 1581 Disk 


ONLY $39.95 
The best money you'll ever 
spend on your Commodore! 













Mail your order to: Software Support Int 


TNE Andresen Road / Vancouver. WA 98661 





all our toll-free order ti 
cific time 
















Since 1981 


Lyco Computer 
Marketing & Consultants 















HNLASER COMPACT XT 
@ PC-XT © Parallel Printer 
Compatible ort 
° pial . BOOINGZ © Serial RS232 
super Tul 
Clock S| ° oveucrioamie: 
© Built-in 5v4 Drive 


® Built-in RGB 
Video Output 


ONLY $ 475 95 


Color System HEADSTART 


© Ready to plug in and use 
Immediately 

© Uttra fast 8 Mhz Intel 6088-2 
Processor 





'® HiRes color monitor included! 


$1049° 


1-800-233-8760 








Air orders processed within 24 hours. 


COMMODORE 


HARDWARE 


$159, 4 








1084 Monitor .. 
C1351 Mouse 
1700 RAM 
1764 RAM C64 .. 
COM PC rss 


. $117.95 
se SCALL 





PC 
COMPATIBLE 
HARDWARE 





Laser Desktop Tuo XT 256K . $569.95. 
Laser Desktop Turbo XT 640K . $599.95, 


Biue Chip PC XT. 
Blue Chip Popular 
Blue Chip 286AT 
‘Vendex Headstart Color 
Vendox Headstart Mono 
Sharp PC 4501 
Sharp PC 4502 
Zuckor CGA ColorCard . 
BCC CG ColorCard 
Laser EGA + 4 Card 
ATI Graphics Solution 











Kratt PC Joystick Card 


SS Seagate 


HARD DRIVES 
ST 225 20 meg Hard Drive .... $215.95" 
‘ST 251 40 meg Hard Drive .... $349.95" 
*DTC Controller Kit for PC/XT ... $39.95 
‘ST 298 30 meg Hard Drive ... $245.95"* 
“DTC RLL Controller Kit for 
POT 





ST 125 20mog 3.5 Hard Drive , 
DTC Controlior Kit fof PCIXT sn 


ST 125 20 mag Internal Card 
wiController ... . $329.95 


‘Add $10.00 for 
Controtiers 


$39.95 









COMMODORE ec 


COMPUTER 


$159" 





SHARP. 
PC-4501 Laptop 


$699" 





New Release! 


EB siosoe 


time 2 






Groen, Ambor & Color 
Monitors Availabio, 





Lyco Computer 


Marketing & Consultants 















Since 1981 





Air orders processed within 24 hours. ae | 


Panasonic, 


1091i Model I! 








3 
2°, or! \; © 192 cps Draft 
ne pelt 95 © 32 cps NLO 
tre? $195 
masonic, Panasonic, Panasonic, 
313 A OFA OF Of 
Daley Wheel ' 
(eg Print yh ; : 
= sree By s0991 (ake 1502 
© Up to 13.5 4 © 196 Column 
Migs © 240 eps # 180 cps 
* Use Sardar #48 ops NLO $ ngin a 


‘Adjustablo 


$299% “i  g3ig® “*™ — gqggs me 


Sit Pane Star NX1000C 
Vas : 
SOM eg ce §=— SCQF” 
we 36 ops NL 


— \ @ EZ Front Panel Control microntcs 
$1 79 95 ig © Commodore Direct Connect a pace ea meee 
Improve your 
NEW! NX1000C Rainbow image with a Star! 
$229.95 


Star” = Star’ 


c- S Qs 
nxis RSs 8 \. 








Siac oq Baio SS NR10 ad) 
smesna ele Senos 


T 
* ht Page $309 95 se $399 2 Eze Par $339 95 


= 1-800-233-8760 































If you are not currently using 
our educational service 
program, please call our 
representatives for details. 








| would personally 
like to thank all of our 
pee customers for 

elping to make Lyco 
Computer one of the 
largest mail order 
companies and a 
leader in the industry. 
Also, | would like to 
extend my personal 
invitation to all computer 
enthusiasts who have 
not experienced the 
services that we provide. 
= Please call our trained 
‘sales staff at our toll free number to inquire about our 
diverse product line and weekly specials. 





ophy is to keep abreast 
so that we can provide you with 
hot only factory-iresh merchandise but also the newest 
models offered by the manufacturers at the absolute best 
possible prices. And we offer the widest selection of 
computer hardware, software and accessories. 





nL cant stress enough that our tollsree 
number is not just for orders. Many companies have a 
toll-free number for ordering, but if you just want to ask a 
question about a product, you have to make a toll call. Not 
at Lyco. Our trained sales staf is knowledgeable about all 
the products we stock and is happy to answer any questions 
you may have. We will do our best to make sure that the 
product you select will fit your application. We also have 
Saturday hours — one more reason to call us for all your 
computer needs. 

Once 











inswers to your questions 
about the status of an 
order, warranties, 

product availability, or 
prices. 


dise. Chances 
are W we nave exactly 
what you want right in 
our warehouse. And that 
means you'll get it fast. 
In fact, orders are 
normally shipped within 
24 hours. Free shipping 
on prepaid cash orders 
‘over $50, and there is 
no deposit required on 
C.0.D. orders. Air freight or UPS Blue/Red Label shipping is 
available, too. And all products carry the full manufacturers’ 
warranties. 


| can’t see why anyone would shop anywhere else. Selec- 
tion from our huge in-stock inventory, best price, service that 
can't be beat — we've got it all here at Lyco Computer. 


al US Call: 1-717-4 


Houre: 9AM to 8PM, Mon. - Thurs. 
9AM to 6PM, Friday — 10AM to 6PM, Saturday 


For Customer Service, call 1-717-494-1670, 
JAM to SPM, Mon. - Fri. 
Or write: Lyco Computer, Inc. 
P.O. Box 5088, Jersey Shore, PA 17740 


0.0. Alsk-Free Policy: tulmanutactxers warranties eno sales ax ouside 
‘prices show 4% cash discount: add 4% for credit cards @ APO, FPO, 
Irtomsional add Ss plus 3% lor pronly © 4-woek clearance on personal 
#8 wo check fr cred card that ® somy, compatibity not guaranteed e return 
authorization required due tonew product guarantee, return restrictions 
brice/avalabilty subject to change 6 prepaid orders under $S0!n Continent is 










Hayes Compatible 
Modem 





$69.95* 


* With Purchase of Cable Kit 
© Direct Connect Cable to Your 
84/128 


QvS-10 5% 
QVS-75 5v 
QVS-40 3v2 







Save up to 50%! 
We carry a stock of 
thousands for most 

applications. 





We carry cables for most 
printer applications for many 
popular computers, 





New 
M-3 Mouse 


© Works with Geos, 
‘© 1351 Compatible 
‘© Less Expensive than 1351! 


$34.95 


Mouse Care 


— Includes — 
Mouse Pad 
oo x11 a0 
Provides Clean, Dust-Froe 
* Surtace for Your Mouse: 
'@ No-Mar Backing to Protect 
Your Desk Surfaco 


Mouse Cleaning 
Ball 


© Maintains Optimum Mouse 
Performance) 


Only $19.95 


tems can be purchased 
separately. 








Winner 909, 
Wico IBM/AP 
Upstick Plus. 
Kraft KC Ill A, 
Kraft PC 





1000 shoot la: 
150 sheot ivot 
1000 mailing | 
200 shoot OK 
‘Transparent L 
Bannor Papor 





SORIES 





Surge 
a Suppressors 


Music StU van nnene $19.95 
PP102-6 outlet Leather Goddesses ..... $19.95 
PP106-6 outlet with 
EMURFI 


PP104-6 outlet with 





Top Fuel Eliminator ..... $17.95 









Drive 
Maintenance 


5¥4 Drive Cleaner 
cMP142 
v4 Drive Cloaner 
with program. 
3.5 Drive Cleaner 
CMP 154 








Video 
Tape 


SKC T120 VHS 
Video Tape: 





‘87 Team Disk 
Microprose: 

Airborne Ranger .. 
F-15 Strike Eagle 
Gunship .. 















THpIO PACK neuen $19.95 Kennedy Approach . 
Wid. Cl. Lender Brd, .., $22.95 Silent Service . 
Famous Courses #1... $11.95 Solo Flight .. 
Famous Courses #2... $11.95 Top Gunner 





Leader Board Pack ..... $12.95 
‘Acton Soft: 


Up Periscope snow $18.95 
Thunderchopper nun. $18.95 


Activision: 
Champion. Basketball. $19.95 


on Prepaid cash orders over $50 in the Continental U.S. 






SOFTWARE 





Origin: 
Autoduel 
Ultima 1 


Software Simulations: 
Pure Stat Baseball 





Graphics Expander 
Strategie Simulations: 





Timoworks: 
Partner C64 
Partner 128 
Swift Cale 128 





Unison World: 

An VOFZ snes $14.95 
Pat ater oer Crusade in Europe 
Decision in Desort 


F15 Strike Eglo . 





Stellar Crusade 


Sons of Liberty . 
Road War Europa 






Fonts & Borders 








DPD OD DOD IPOD VOID VP LPO 
Price Guarantee Commodore Read: 


Since 1981, we have led the industry by 








continuing to offer the lowest national SEIKOSHA 

prices while providing quality service. Many 

companies have come and gone trying to Sp 180VC 

imitate our quality and service. If by some 

oversight we do not have the lowest prices ©) 100 cps Dratt —_—_ | 

advertised on the products you desire, : Eo can 

then we would appreciate the opportunity In 

ht, for Commodore 9 95 
to rectify this oversight. N ‘Guantiies 1 2 | 
DODD DODD DODD OIL: Limited | 
Monitors Modems 
Magnavox Avatex: 

Thomson: 
290 Amber TTL12" .... $79.95 Blue Chip: c 
4120 CGA BM 12" Greon TTL ... $64.95 
4160 CGA BOM 12” Amber TTL ... $69.95 





4460 EGA .. i 
GB 200 Super Card ., $184.95 
4870 





NEC 


Multisyne Mn 


Commodore Ready 


9) $589.95 








4120 er Coat comeaeoced MAGNAVOX 


Color RGB for C128 
Mode Operation CM8762 
=i 


Plus Switchable in 
Green Monochrome 


®@ Cables Included 


a 219 
THOMSON & 


© Color + Green 
Modes 
@ Built-in Tilt Stand 
© 1-Year Warranty } 
Suggested use C128D } 
} 


$239% 








4acorrctv 


EPSON ic, | 


‘Oltice Automation, 


SEIKOSHA 


SP 180A\ . 
SP 180VC 
SP 1000VG 





\( 









10801 Modo! It. 
10911 Model It. 










NB-15 24 Pin 











NB2410 24 Pt one ; | 

841524 SETAE OKIDATA | 
= Okimate 20 

SICITIZEN Okimato 20 | 


1200 : $169.95 


$099.95 
. $619.95 
. $345.95 








293 wiintertace .. 
294 wiintertace .. 
993 


321sl 
941 SL $659.95 
Past . $589.95 
951 SX 400 cps . $689.95 


Join the thousands who shop Lyco and Save 


We stock Interfacing for Atari, Commodore, Apple and 15M. 








CZ-Rider 

Dr. T’s Music Software 

$99 

CZ-Rider can be controlled by joystick, synth 

keyboard, or computer keyboard. CZ parameters 

can be displayed in the edit screen, while another 
/ screen can show color graphs of the envelope 

level compared to time. The envelopes can be 

drawn by selecting a point to change and then 


YY, moving it. The respective sounds are played as 


} the graphs are drawn. Other features include 
7 naming voices, copying envelopes between two 
7, voices, inserting or deleting steps into an enve- 
/ lope, an adjustable time scale, and printing, 


Double-Banked 
Programmer/Librarian 

Sonus 

Casio CZ-101, 1000, and 5000 
series synthesizer; MIDI interface 
card 

7) $99.95 

4 With the Double-Banked Programmer/Librarian, 
music programmers can create, edit, and store 
sounds from the Casio synthesizer or the com- 
puter. The sound patches can be rearranged and 
joined to form tunes. The patches can also be 
printed out. 


DX-Patch Editor and Librarian 
7, Dr. T’s Music Software 
) Synthesizer 
$99 
Patches for the Yamaha DX7 can be created 
and stored with this music editor. The program 
also aids in programming the model DX9 and 
the TX7 and 8-16 expansion modules. With the 
) program, musicians can attach a keyboard con- 
troller or external sequencer to the MIDI in the 
7, computer to hear the TX sounds. Sound data is 
displayed in DX7 format and can be edited. 
Patch data is displayed on three data screens 
/ and can be edited or printed. Two sets of patch- 
es can be kept in memory at one time, and over 
800 patches can be stored on a disk. Patches 
can be sent individually or in groups of 32. The 
patch librarian contains 128 patches. The DX 
Patches, Volume 1 disk contains an additional 
288 patches and is sold separately. 


sui 


DX-TX Double Banked Librarian § 


& Programmer 
Sonus 
Sonus, Passport, Yamaha, or 
Sequential MIDI interface card and 
Yamaha DX or TX instrument 
$149.95 
Programs to use with DX or TX equipment from 
Yamaha can be created, edited, and saved to 
disk with the DX/TX-LP, This librarian and edit- 
) ing program offers three menus—main, edit, 
} and disk—with four independent levels plus 
four function keys in each for a total of 48 func- 
tions. The program contains two banks of 
sounds so 64 sounds can be loaded at one 
time. There are also 20 hidden commands. The 
A/B selectable feature allows the programmer 


me 


to see and hear other programs while in the edit 
menu. Programs, patches, and functions can be 
printed out. The program disk includes 10 car- 
tridges of 32 patches. 


Echo Plus 

Dr. T's Music Software 

$89 

Two separate programs are provided in this 
package, The first program can operate on one 
Output channel and includes an infinite loop. The 
second allows the user to define up to four inde- 
pendent or overlapping ranges, and up to 30 de- 
layed notes can be specified, Both programs can 
start a short sequence for each note played and 
feature four-way keyboard splits, doubling, MIDI 
echoes, one-finger chords, and arpeggiated 
chords. 


FBO01 Design 

Sonus 

FBO1 FM Sound Generator from 
Yamaha; Sonus, Passport, or 
Sequential-compatible interface 
cards 

$99.95 

F801 Design is a double-banked MIDI librarian 
and editor to use with the FB01 FM Sound Gen- 
erator from Yamaha. The program contains two 
independent banks of voices and configurations 
and can get or send full banks of voices and 
configurations, Library functions include swap, 
bank to bank, insert, and delete. The edit mode 
can update parameters, display algorithms 
graphically, swap, copy, and initialize, There is 
also a print-screen feature. 


GlassTracks 


is package helps turn the 64 and 128 into a 
MIDI recording studio, It includes studio- 


s the programmer to set the end of each 

, Move the sequence, name or rename 

S, append the sequence to itself or an- 

lence, erase, transpose, and control 

the MIDI channel assignment and velocity. The 
‘track modification menu allows the user to de- 
‘Tete pitch ‘and mod wheel information. Tracks 
can also be transposed, erased, or autocorrect- 


SNe d to the nearest thirty-second, sixteenth, 


ighth, or quarter note. Routines are used to 

store and append sequences. Other features in- 
clude a play-thru function, meter adjustment, 
tempo adjustment by BPM, nondestructive 
bounce, step record and play, and commands 
such as OMNI off, all notes off, zero mod wheel, 
and zero sustain pedal, 


Instant Music 

Electronic Arts 

Joystick optional 

$29.95 

Instant Music uses red, green, and blue color 
bars to represent pitch and duration so even 
nonmusicians can create original music. Any 
three instruments—including guitar, bass, 


drums, piano, and sax—can be played at one 
time, and music can be output to MIDI. Editing 
features include cut, copy, paste, zoom, volume, 
and tempo for songs up to 32 measures long. 
New instrument sounds can be created using 
the synthesizer feature, and MIDI users can add 

a drum machine to the piece. A library of over 
40 songs is also on the disk. MIDI instruments 7 
aren't included. 


Keyboard Controlled Sequencer 

Dr. T's Music Software 

$149 (64) ; 

$225 (128) 

This MIDI sequencer offers editing and structur- 
ing of music entered by keyboard or synth key- 
board. Features include realtime recording, 
overdub, step-time entry, sequence editing, cut 7 
and paste, transpositions, autocorrect, inver- // 
sions, and time reversals, plus structured se- 


the user to combine 
different parts or repeat sections of music. A 
play screen displays the sequencing as the mu- // 
sic plays. The 64 version holds 3500 notes and 
35 sequences. The 128 version can store 126 
sequences and 12,000 notes and contains addi- 
tional features such as splitting the keyboard 7 
and random transpositions. 


Master Tracks 

Passport 

Passport MIDI Interface Card, 
synthesizers, drum machine, or 
joystick 

$249.95 y 
Users can compose, arrange, and orchestrate 
music with Master Tracks, which offers real- / 
time, step-time, and song-mode sequencing. 
Realtime sequencing features 16-channel track 
recording, master clock synchs to and from 
MIDI sequencers, unlimited amount of tracks 
with track-mix function, independent track loop- 
ing, fast forward and rewind, and an over-8000 
event memory without loops or repeats, The 
step-time sequencer contains the Quikstep edi- 
tor and has cut, copy, and paste options. In the 
song mode, programmers can step-assemble 
songs with 16-channel sequences, bulld songs 
much like a drum machine, and assemble 256 
different sequences using any of 999 steps. 


Master Tracks Pro 

Passport 

Commodore 128, Passport MIDI 
Interface Card, MIDI-equipped 
instruments 

$299.95 

Master Tracks Pro, the enhanced version of the 
Master Tracks sequencer, is a MIDI recording 
and editing system. The program provides real- 
time, step-time, and song mode sequencing. 
Multitrack songs can be created in sections or 
as continuous works, and users can record or 
play from any point in the sequence. In addition 
to the same features found in the original Master 
Tracks, this 128 version offers an ‘undo’ com- 
mand, an expanded memory capacity, memory- / 
resident modules and data, data filters, and the 
ability to append sequences together from the 
disk in recorder module, 





MIDI/4 Plus 

Passport 

MIDI synthesizer, MIDI Interface 
$99.95 

(MIDI/4 Plus is a four-channel recording pro- 
gram that incorporates multitrack tape recorder 
qualities with unlimited overdubbing on four 
separate channels, realtime editing, tempo con- 
trol, and recording of all controllers including 
key velocity, pitch bend, preset changes, after- 
touch, and modulation. Editing features include 
punch in and punch out, an autocorrect to thirty- 
second note triplets, and the editing of beats in 
24 increments. The sequencer also allows fast 
forward and rewind, 


MIDI/8 Plus 

Passport 

MIDI synthesizer, MIDI Interface 
$149.95 

MIDI/8 Plus is an eight-channel MIDI recording 
program that incorporates multitrack tape re- 
corder qualities with unlimited overdubs to eight 
channels, realtime editing, tempo control, and 
recording of all controllers including, key velocity, 
pitch bend, preset changes, aftertouch, and mod- 
ulation, Editing features include fast forward and 
rewind, punch in and punch out, single-step play- 
back, and 24-increment editing of beats. A tape 
syne feature requires an external syne box or 
Passport's MIDI Interface with tape sync. 


MIDI Processor 

Sonus 

Super Sequencer or Studio | data 
files; Sonus, Passport, or 
Sequential MIDI interface card 
$119.95 

Data files created with sequencing software— 
Super Sequencer and Studio -—can be loaded 
and edited with MIDI Processor. Single events 
or ranges of events can be edited with the micro 
and macro editing functions. Range edits in- 
clude transposing tracks, velocity level, velocity 
scale, autocorrect, removal of program 
changes, erasing or keeping a track in a range, 
and bouncing a track from one sequence to an- 
other. The program offers other features such 
as viewing individual MIDI events, live punch, 
playback mute controls, disk utilities, and a 
seam manager. 


MidiTech 64 

Sonus 

MIDI interface card, MIDI device 
$99.95 

MidiTech 64 is a monitor and system-exclusive 
librarian to view, send, receive, manipulate, and 
save MIDI bytes sent from MIDI devices such as 
keyboards, drum machines, and sequencers. It 
features programmable MIDI filters, MIDI trigger 
functions, receive with prefix send capability, 
system-exclusive dump requests, and an over- 
25K receive and send buffer. The monitor edit 
functions include edit, insert, delete, ten pro- 
grammable go-to points, fill, and hunt. Hand- 
shake protocols can be saved to disk. System- 
exclusive dumps can be saved to disk and are 
compatible with the Super Sequencer. MidiTech 
64 includes system-exclusive dump requests 


for the CZ101, RX11, DX/TX, FBO1, KORG 600, 
and LINN drum. 


The Music Shop for MIDI 
Passport 

MIDI Interface Card, MIDI synthe- 
sizer or drum machine, printer 
optional 

$149.95 

With this program, users can compose, edit, 
and print music. The editor allows the user to. 
move or erase blocks of music, pick up a note 
once and place it any number of times, and in- 
put notes from the MIDI keyboard. Eight voices 
can be assigned to four different MIDI channels. 
Sheet music can be printed in piano, single 
staff, or quartet formats, Each musical piece can 
be up to 20 pages in length. The program sup- 
ports all key signatures and. uses pull-down 
menus and windows. 


The Music Studio 

Activision 

Joystick optional 

$34.95 

Professionals and amateurs can use this pro- 
gram to create their own musical compositions. 
The editor lets users change tempo, duration, 
and volume. New instruments and sound ef- 
fects can be created by modifying the attack, 
sustain, release, and decay features. The paint- 
box provides a place for experimenting with 
new sounds or melodies, and the piece can then 
be copied into the editor. The music can be 
printed in sheet-music form, and the program 
can be used with electronic keyboards, Up to 
three verses can be added to a song, and a li- 
brary of original compositions is included. 


The Music System 

Firebird 

(Distributed by Activision) 

$39.95 

This musical utility package consists of two 
modules. The editor/keyboard module can be 
used to create compositions note by note and 
store the music digitally. In this module, notes 
are stored in standard musical notation, and 
three voices are allowed. The synthesizer per- 
mits definition and control of the settings and 
output of the SID chip. The mix, sound, and 
melody can be altered as the piece is played. 
There is also a built-in metronome feature, Pull- 
down menus and documentation are included. 


Passport MIDI Voice Editor 

for FB-01 

Passport 

MIDI Interface Card, Yamaha 

FB-01 synthesizer 

$125 

This package is a voice librarian and editing sys- 
tem for Yamaha's FB-01 synthesizer module. 
The program allows users to organize and edit 
sounds for the FB-01, create a library of voices 
and configurations, organize setups, and send, 
receive, copy, move, name, and print banks of 
voices and configurations. Voice parameters 
can be edited, Channel assignments are provid- 
ed for both MIDI In and MIDI Out. 


Rock 'N’ Roll Studio 

Spinnaker Software 

Joystick 

$6.95 

‘As owner of a recording studio, the user can 
create a song, store it in the jukebox, and play it 
back with the touch of a few buttons, 


RX Librarian 

Sonus 

Yamaha RX11 or RX21 drum 
machine, MIDI interface card 
$69.95 

The AX Librarian contains over 150 jazz, Latin, 
‘and rock drum patterns to use with the Yamaha 
RX11 or RX21 drum machines, With this pro- 
gram, drum patterns and mixes can be named, 
edited, and stored. Twenty lines of comments 
can also be entered with the files and stored or 
printed out. 


Songwriter 

Thunder Mountain (Mindscape) 
$9.95 

Songwriter can help students with limited musi- 
cal skills create and save tunes to play on the 
computer. Piano-roll graphics and notations are 
used for composition, A library of songs is in- 
cluded on the disk. For grades 1-8. 


Sonic Editor 

Sonus 

Prophet or Ensoniq Mirage 
sampling keyboard; Sonus, Pass- 
port, Sequential, or compatible 
MIDI interface card 

$99.95 

A graphics waveform editor and sound manage- 
ment system, Sonic Editor consists of three 
main parts—parameter options, edit mode, and 
program library and disk storage. With the pa- 
fameter options, wavesample or program pa- 
rameters from the lower or upper half of the 
keyboard can be displayed. Displays include 
loop start and end, loop fine adjust, top key val- 
tue, LFO frequency, OSC detune, mix, and filter 
values, The edit mode includes three methods 
for drawing and editing waveforms—scrolling 
‘the waveform, drawing on the screen, or man- 
ually plotting points. Single-page waveforms 
and preset parameters can be stored on-board 
with the program library to provide 78 sounds. 
Sets of 78 sounds can be stored on disk, and a 
library of 78 preprogrammed sounds is provid- 
ed with the program. The program also includes 
a dot/line mode display and screen print. Sonic 
Editor is available for the Prophet or Ensoniq 
Mirage sampling keyboard. 


Sound File 

Blank Software 

Disk drive, joystick or mouse, 
Ensoniq ESQ-1 2.0 

$69.95 

This sound and sequence librarian program for 
the Ensoniq ESQ-1 Digital Wave Synthesizer 
can use up to four sound banks at one time and 
has two patch libraries, each holding up to 120 
sounds. Musicians can move the patches within 












Complete Commodore 
€64¢ System 


The Complete System Includes: 


* Commodore 64¢ Comput 

0 ae erator Plus Disk Dri 

jochrome Monitor 

U) Seen |BM® Printer With Commodore 
Interface & 1 Roll Of Heat Transfer Paper 

* GEOS Program For Word Processing & Drawing 


Our Low Sale Price 


*395" 


= List $1049 
(Add $30.00 shipping.*) 


Excelerator 
Disk Drive 








Commodore Compatible 
*Includes FREE Game 


Our Low Sale Price 


714 


(Add $10,00 shipping.*) 


List $249 





Amiga 500 Computer Sale 


512K Computer 
Compatible with Amigo Call For 
l Price 


00 Software 
List $799 


Amiga 1010 External Drive Sale 

Call For 
Price 

Amiga 1084 Color Monitor Sale 


13" RGB 80 Coli 25 
row sox wore Call For 
Price 











List $399 


5%" Floppy Disks 


Double Sided 1 9< 2 
each 


Double Density 

‘Minimum Quantity 50 

Maximum Quontity 250 (Add $4.00 shipping.*) 
Box of seeeeeee+$9,50 (19 each) 
(without sleeves) 
Box of 50,.......-...$10,50 (21' each) 
(with sleeves) 


Box of 100 (no limit) ...$24.00 (24* each) 
(with sleaves & labels) 











$1.00 per quantity of 50 | 
$3.95 per quantity of @ 
$3.95 eodl 


5%" Sony =a 


lex eS yi 
Limited 
Quanties 
(Add $4.00 shipping.*) 


tsingle Sided, Double Density 
Sold In Packages Of 5 With Sleeves, 
Labels & Write Protects Included 
$2.45 Per Box 


Economy Sleeves 
Disk Labels . 

















COMPUTER DIRECT 


will Not Be UNDPERSEL aD 


AND WE MEAN IT!* 





Prices Expire 8-31-88 














The Complete System Includes: 
* C-128D Computer With Built-In Disk Drive 
* 12" Monochrome Monitor 
* Genvine IBM® Printer With Interface 
* One Roll Of Heat Transfer Paper 
* C-128D Programmer's Reference Guide 


a Low Sale 95 


(Add $30.00 shipping. *) 


Genuine IBM® Printer 


8," Letter Size ° 80 Column 
Limited Quantities 


List $825 


© Upper & Lower Case 
(with true lower descenders) 

* Advanced Dot Matrix - Heat Transfer 

* Graphics With Commodore, & Apple Interfaces 

* Ready to Hook Up To Serial Port Of IBM@® PCir., 

* Low Cost Adopters For IBM®, Apple, 
Commodore, & Laser Computers 

* Underline & Enlarged 


Our Low Sale Price 


List $199 
(Add $7.50 shipping.*) 


15 Day Home Trial ¢ 90 Day Immediate Replacement Policy 





COMPUTER DIRECT 
22292 N. Pepper Rd, Barrington, IL. 60010 
Call (312) 382-5050 To Order! 
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and between banks and libraries and can com- 
bine songs to create new song banks. A disk 
can store up to 1600 patches. The program 
uses windows and pull-down menus plus a joy- 
stick- or mouse-driven operating system. 
Sound File requires Passport, Sequential, or 
European MIDI interface, a Commodore joystick 
or mouse, and the Ensoniq ESQ-1 version 2.0 
or higher. 


Super Sequencer Series 

Sonus 

Sonus, Passport, or Sequential 
MIDI interface card 

$189.95 (Commodore 64) 

$229.95 (Commodore 128) 

A series of recording and librarian routines for 
professional music programming, the Super Se- 
quencer Series contains a built-in MIDI system- 
exclusive librarian and studiolike controls such 
as fast forward, live mute, and assignable veloc- 
ity, The programmer can set the beginning and 
end of each sequence, move the sequence, and 
control MIDI channel assignment and velocity. 
The track modification menu can be used to de- 
lete pitch wheel, mod wheel, sustain pedal, or 
volume change. Sequences can be arranged 
into songs, and up to four songs can be ar- 
ranged in memory at one time. Additional fea- 
tures include time-base transfer, captive play- 
thru function, autocorrect, and velocity leveling. 
The 128 version has a command to record 
changes in MIDI volume data to convert the 
master keyboard's mod wheel into a MIDI vol- 
ume control. 


So Mee 





THEY TALK THE TALK... 


VDS Mirage 

Dr. T’s Music Software 

Ensoniq Mirage. synthesizer 
29, 


‘An editing system for the Ensoniq Mirage syn- 
thesizer, this program can graphically display 
and_ edit» waveforms, waveshaping synthesis, 
Fourier transforms, additive synthesis, and FM 
synthesis. 





Virtuoso 64 

Chipmunk 

$29.95 

Virtuoso 64 is a music editor to help the user 
create sound effects and background music. 
The interrupt-driven music code can be added 
to BASIC or machine language programs, 





Publisher’s Information 
Activision 

3885 Bohannon Dr, 

Menlo Park, CA 94025 


Blank Software 
1034 Natoma St. 
San Francisco, CA 94103 


Chipmunk Software & Systems 
Box 463 
Battleground, WA 98604 





Firebird Licensees 

c/o Activision 

3885 Bohannon Dr. 
Menlo Park, CA 94025 


Mindscape 
3444 Dundee Rd. 
Northbrook, IL 60062 


Passport Designs 
625 Miramontes St. 











By now you've probably seen all the ads for all the 
different “*Super Cartridges” on the market. And they can 
talk all day, but let's get real: no cartridge 1s going to back up 
100% of anything, no cartridge is going to turn your -64 into 
‘an Amiga. and no fancy screens or hyperbolic claims are 
{going to give a cartridge any more power than it really has. 

That's why SUPER SNAPSHOT is still the best multi 
function cartridge on the market. It is a product that is the 
result of a long process of refinement. Our policy of constant 
‘upgrading ensures you that you'll always own a state of the 
aft device. SUPER SNAPSHOT will never be ““tinalized"’— 
because it’s built to evolve 


Suite 103 
Dr. T’s Music Software 
220 Boylston St. Half Moon Bay, CA 94019 
Suite 306 Sonus 
Chestnut Hill, MA 02167 21430 Strathern St. 
Electronic Arts eutee 
1820 Gateway Dr. Canoga Park, CA 91304 
San Mateo, CA 94404 Spinnaker 
One Kendall Square 
Cambridge, MA 02139 
Wi 





a 
WE WALK THE WALK 


HERE'S WHAT SUPER SNAPSHOT V3 CAN DO FOR YO! 








sable feature for true transparency. 


1om based scrolling M/L monitor will, 
‘urbo 25—Formats for up to 25 times 





Only $5.00 additional. 


pies 99% of all memory resident software. 


extremely compatible Turbo Dos fast loader—1541/71/81 


ast data copier, single or dual: 1541/71 and 1581/81 
ector editor allows fast examination and modification. 
ree KRACKER JAX parameters for those tough cracks 
fen-day money back satistaction guarantee. 









NOT corrupt memory 
faster loads, 





les run without the cartridge in place. 

re-programmed or user definable function keys 

3S wedge supports multiple drives—8, 9, 10, 11 

igh Res and multicolor screen dumps to printer or disk tile. 

ast File copier, single or dual: 1541/71/81 

prite killer and exclusive extended life feature 

ast load and save routines are used throughout 

super Snapshot V1 and V2 owners may upgrade for $20.00. Call us. 
ur great Slideshow Creator available for only $14.95 

Attention C-128 owners, An optional switch is available which allows you to disable the C-64 mode without removing the cartridge 


‘So while other companiés spend their time making their packages better, we'll just keep on making our products better. 


Because we know the difference between TALKING THE TALK—AND WALKING THE WALK, SUPER SNAPSHOT V3; ONLY $59.95! 


cae 

Sant ‘are processed within 24 hrs. Returns are not accepted without 
png Washington Residents please add 7.3% sales tax. 

INTERNATIONAL 


DEALERS — 


ORDERING is simple: we accept money orders. certified checks. personal checks on plot 
Approval, VISA, MC, Discover and COD. Please add $3.00 shipping and handing per 
‘order. $2.00 adaltional for COD orders, Orders outside of North America please add $7.50 
‘er cartridge fr shipping. Detective items wil be replaced at no charge. in-stock orders 


‘authorization #. 


al oa pda eine Supper Ut a 
2700 NE Andresen Road / Vi 8661 
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In Canada order from: Marshview Software, PO Box 1212, Sackville NB E0A-3C0 only $69.95 CDN. 


WE HAVE THE SUPPORT YOU’RE LOOKING FOR! 








the geos column 


Helpful Hints 
David Iwanicki 


After purchasing the new GEOS 128 
package, I noticed that some of the 
functions do not work as stated in 
the manual. Here is a list of some of 
the problems I’ve had and the solu- 
tions I’ve discovered. 


Problem: You are using geoWrite 
or geoPaint on a two-drive system. 
The application, fonts, and accesso- 
ries are all on one disk, and you're 
creating the document on the other 
drive. If you pull-down the GEOS 
menu, you'll see the accessories, 
but when you try to open and use 
one, nothing happens. 


Solution: Place the application and 
the fonts and accessories you think 
you'll use on the disk with your 
documents, 


Problem: You have just purchased 
a new application (Writer's Work- 
shop, geoCalc 128, or another). You 
follow the instructions in the man- 
ual, but you get an error message 
stating: “Application may not be in- 
stalled on this disk.” 

Solution: This one happened to me 
with Writer's Workshop 128. After a 
lengthy discussion with Berkeley, 
we came up with this step-by-step 
solution, First, click on the file 
CONFIGURE 128 (it’s on the 
BOOT disk). Next, click on Drive A: 
No drive. When the screen is re- 
drawn, click on Drive A: 1541. 
Choose QUIT from the File menu. 
Now install the application on 
Drive A. When you're finished, you 
can configure the drive back to its 
original setting. Note that GEOS can 
tell what types of drives are in- 
stalled, and, if no configuration has 
been saved, it will use each drive in 
its native configuration. 


Warning: GeoPaint 128 users 
should be aware that lines have a 
habit of remaining on the screen 
after pulling down a menu. This ef- 





fect almost always occurs when you 
have a TEXT window open or when 
you have selected a portion of the 
screen and it’s still active. The TEXT 
cursor can become a part of the dis- 
play, but it won’t be in the docu- 
ment. It remains until you exit to 
the deskTop, The best way to avoid 
those unwanted lines is to make 
sure that the PENCIL is the active 
drawing device before you pull 
down Geos or File. 


Problem: You have dozens of fonts, 
but when you try to use them all ina 
document, only some are available. 


Solution: Only the first eight fonts 
on the disk are available for use in a 
document (not including the sys- 
tem fonts BSW and BSW 128.) To 
change the eight fonts available, 
move them around on the deskTop. 


GEOS 128 and the 1581 
Dale McBane 


There are a variety of disk drives 
and RAM Expansion Units (REUs) 
available for the 64 and 128. GEOS 
and GEOS 128 both support the 
Commodore RAM expanders (the 
1700, 1750, and 1764) and the 1541 
and 1571 disk drives, In addition, 
GEOS 128 supports the 1581 drive. 

When an REU is used with 
GEOS or GEOS 128, it can be config- 
ured for direct memory access 
(DMA) data transfer, for disk buff- 
ering, or for simulating a disk drive 
with a ramdisk. Using an REU as a 
ramdisk can cause some GEOS ap- 
plications to execute much faster 
than with a disk drive. The speed of 
a ramdisk makes using GEOS much 
easier, but data stored in a ramdisk 
isn’t permanent, When the power is 
turned off, the contents of the ram- 
disk are gone. While real disk 
drives can’t match the speed of a 
ramdisk, the data stored on them 
does survive powering down. 

Of the disk drives supported by 
GEOS 128, the 1541 is the oldest and 








GEOS 128 Solutions 


the slowest. The 1541 is a single- 
sided drive with the storage capacity 
of 165K. Because it uses both sides of 
the disk, the 1571 can store more 
data on each disk than the 1541. The 
1571 has a storage capacity of 331K, 
just over double that of the 1541. The 
1571 not only stores more data per 
disk than the 1541, it also transfers 
that data to and from the computer 
more quickly. The 1571 supports two 
methods of fast transfer, 

The 1581 is fast. While it’s not 
as fast as a ramdisk, it is slightly 
faster than the 1571, For most ap- 
plications, the speed difference be- 
tween the 1571 and the 1581 is 
unnoticeable. The 1581’s best fea- 
ture is its huge capacity—it can 
store 790K of data on a single disk. 
That's nearly five times the capacity 
of a disk formatted on the 1541. 
With the 1581, you can keep all 
your applications, data, and refer- 
ence files on the same disk. For ex- 
ample, if you’re using geo- 
Programmer to work on a large 
project, you could keep geoWrite, 
geoPaint, the text manager, the 
photo manager, geoAssembler, 
geoLinker, geoDebugger, geosSym, 
geosMac, fonts, the deskTop, any 
desk accessories you might need, 
and your source files on the same 
disk. No more swapping! 

Right now, the GEOS 128 boot 
disk isn’t available in 3¥%-inch for- 
mat, and Berkeley hasn’t an- 
nounced that one will be made 
available. If Berkeley does put 
GEOS 128 on 342-inch disks, a pow- 
erful development system could be 
built around it. Just imagine boot- 
ing GEOS 128 from a disk contain- 
ing every application you might 
want to use and having a ramdisk 
to store your data files on. If you 
play around with 128 CONFIGURE 
enough, you can approximate such 
a system, but it takes a while. The 
optimum GEOS environment is 
close at hand, and the REU and 
1581 are major contributors. @ 
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the programmer’s 


Randy Thompson 
Contributing Editor 


“The Programmer's Page’ is in- 
terested in your programming tips 
and tricks. Send all submissions to 
The Programmer's Page, COM- 
PUTE!’s Gazette, P.O. Box 5406, 
Greensboro, NC 27403. We'll pay 
$25-$50 for each tip we publish. 


I like to do things with BASIC that 
most people think BASIC can’t 
do—use commands for things they 
weren't designed to be used for. I 
get a certain pleasure from writing 
compact, efficient, and often cryptic 
code that people look at and say, 
“That won't work,” but it does. 
Sometimes, this is the only way to 
get BASIC to do what you want. 

To see what I mean, take a 
close look at the following pro- 
gramming tricks for the 64. Each 
one makes use of BASIC’s too- 
often-ignored DEF FN statement. 
Don’t refer to your BASIC manual 
to see what DEF FN is supposed to 
be used for, because it won't help. 
I'm going to show you how to use 
DEF EN for something entirely dif- 
ferent: to store and execute ma- 
chine language routines. 


Name That Tune 
Here’s the first routine. See if you 
can guess what it does. 


BD 10 POKE 784,108:POKE 785,12 
2:POKE 786,0 

XR 20 DEF EN BP(X)=USR(162)+PO 
S(" {A}{U}{SHIFT-SPACE}! 
{ES}{A} TIES} {DIT 
{SHIFT-SPACE}T{F8}(F}T 
{SHIET-SPACE}{O}{531F8} 
{X}P(EL}{€2 1} {F3}IT < 
CUdTEPLEBHIXITLZE") 

HD 30 X=FN BP(@) 

If you answered beep, you're 
right. (As you can see, this isn’t ex- 
actly phonetic programming.) This 
command is very similar in func- 
tion to the PRINT CHR$(7) state- 
ment on the 128, except here, an 
X=EN BP(0)—not a PRINT state- 
ment—causes the SID chip to voice 
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its opinion. As long as lines 10 and 
20 have been executed, you can use 
this command to prompt, alert, or 
simply annoy the user. 

Be especially careful when en- 
tering the routines listed in this col- 
umn. A single mistyped character 
in one of the program’s DEF FN 
statements can cause the computer 
to lock up when the program is run. 
Please note that there are no spaces 
between the USR function, plus 
sign, or POS statement in line 20. 

To ensure accurate typing, use 
“The Automatic Proofreader” pro- 
gram found elsewhere in this issue. 
It’s also important that you read 
“How to Type In COMPUTE!’s Ga- 
zette Programs,” also found in this 
issue, to see how to type in special 
characters. 

You can combine any or all of 
the routines provided in this article. 
The only limitation is that you must 
execute the DEF FN commands at 
least once before they're used. (In 
the example above, line 20 must be 
executed before line 30.) For this 
reason, it’s best to include the DEF 
FN statements at the beginning of a 
program. As with most BASIC com- 
mands, the line numbers may 
change, but not the code, 

You might notice that line 10 is 
the same in each of the following 
programming examples. As long as 
you don’t enter NEW, you can avoid 
retyping this line, Just enter lines 
20-250 of each routine while the 
previous program is still in memory. 


Selective RESTORE 

Most versions of BASIC—including 

those found on the 128 and 

Plus/4—have a RESTORE com- 

mand that accepts a line number as 

an argument. Add this feature with 
the following code: 

BD 10 POKE 784,168:POKE 785,12 
2:POKE 786,@ 

RC 20 DEF FN RS(LN)=USR(LN)+PO 
S(" {A} €U} {7342 £PE< 
{G}<L'{£}>") 

JE 30 X=EN RS(5G):READ S$: PRIN 





That Won't Work 


HP 46 DATA FIRST 
XD 50 DATA SECOND 


As demonstrated in line 30, to 
RESTORE BASIC’s data pointer to 
a selected line number, use the 
command 
X=EN RS(line number) 


where line number is a number, 
variable, or even an expression, 
such as 1000+1*10. If you want, 
you can replace X with the variable 
of your choice. When the selective 
RESTORE command is executed, 
this variable is scrambled. 


Super POKE 

I'm sure you're familar with the 
BASIC loader—you know, a FOR- 
NEXT loop that READs in numbers 
from DATA statements and labori- 
ously POKEs them into memory. 
This next trick makes BASIC load- 
ers obsolete. 


BD 10 POKE 784,108:POKE 785,12 
2:POKE 786,0 

KR 30 DEF FN P(X)=USR(X)+POS(" 

£1 }D{3}6 (F1}={337 (F1}> 

{K}£ >£ (E}{D}{X} +<C} 

{PJIC}LERI{Y} {KP{¥> * 

CUZELAH{EL}IGH{X} {23E 

YCEPL(P}{C}")+D 

POKE 53280, 0:POKE 53281, 

G:POKE 646,1:PRINT CHRS( 

147) 

AB 50 V=53248:POKE 2040,11:POK 
E V+21,1:POKE V, 24: POKE 
{SPACE}V+1,53:POKE V+39, 


QR 40 


7 

XK 60 PRINT "{2 SPACES}. . . 
KE 704,EN P(G) 

DATA 000, 006,000,000,25 
5, 000,003,255 

DATA 192,615,255, 248,03 
1, 231,248,063 

DATA 227,252,127,255,24 
8,255,255, 224 

DATA 255,255,128,255,25 
4,000,255,248 

DATA 000,255,248,000,25 
5,254,000,127 

DATA 255,128,063,255,22 
4,031,255,248 

DATA 015,255, 240,003,25 
5,192,000,255 

DATA 000, 000,000,000,00 
0, 006,000,-1 


HK 100 
DJ 118 
HH 120 
Mx 130 
AS 140 
Ks 158 
JE 168 


BD 170 


When run, this brief program 
quickly and efficently takes a sprite 








definition stored in DATA state- 
ments, POKEs it into memory, and 
displays the results—all without 
using FOR, NEXT, or READ. 

The syntax for this super POKE 
1s 
POKE address, FN P(0) 
where address is the starting address 
for the data to be stored. A —1 must 
be used to signify the end of data. 
Otherwise you'll get an 70UT OF 
DATA ERROR. So, the statement 
POKE 49152, FN P(): DATA 1, 2, 3, 4, —1 


is equivalent to 


FOR I= 49152 to 49155: READ D:POKE 
1D: NEXT I: DATA 1, 2, 3, 4 


When used to store 1K-3K 
worth of data, the first method is 
not only shorter, it’s almost three 
times as fast. 

Note: This routine POKEs a 
zero directly after the last piece of 
data stored in memory, This is im- 
portant to know if you plan on stor- 
ing data directly below a machine 
language routine, Also, after the 
routine is executed, the numeric 
variable D is set equal to the last 
piece of data read. Keep this in mind 
if you use D in your own programs. 

This routine makes a perfect 
complement to the selective RE- 
STORE program above. Together, 
they make a powerful team. To il- 
lustrate their combined use, type in 
and run the following program. 

BD 16 POKE 784,108:POKE 785,12 
2:POKE 786, 

DEF FN RS(LN)=USR (LN) +PO 
S(" {A} {U} {T}{2 EYES 
{G}4L'f£>") 

DEF EN P(X)#USR(X)+POS (" 
{I}D{IF6 (FL}={I}7(F1}> 
{k}£ >£ (F}EDP{X} +4C4 
{PJICJLERFCY} {KFtY} ! 
HUFELAJLEL}(G}(X} £292 
Y¢EPL{P}{(C}") +d 

POKE 53280,0:POKE 53281, 
@:POKE 646,1:PRINT CHRS( 
147) 

V=53248:POKE 2046,11:POK 


E V+21,1:POKE V,24:POKE 
{SPACE}V+1,53:POKE V+39, 
7 


RC 26 


KR 30 





QR 46 


AB 56 


XK 60 PRINT "{2 SPACES}. 


eden telpeuiauespanne jis’ ty 9 RO) 
KE 764,EN P(0) 

FOR I=24 TO 255 STEP 8 
X=EN RS(100+10*(I AND 8) 
):POKE 704,EN P(G):POKE 
{SPACE}V,I:POKE 1661+1/8 


CF 76 
ME 80 


HM 90 NEXT 

HK 106 DATA 006,690,000,000,25 
5,000,003, 255 

DATA 192,015,255, 240,03 
1,231,248, 063 

DATA 227, 252,127,255, 24 
8,255,255, 224 

DATA 255,255,128, 255,25 


bg 110 
HH 120 


MX 130 





4,000, 255,248 
DATA 600,255,248, 000,25 
5,254,000,127 
DATA 255,128, 063,255, 22 
4,031, 255,248 
DATA 015,255, 240,003, 25 
5,192, 000,255 
DATA 000,000,000, 000,00 
4,000,000, -1 
DATA 660,000,000,000,25 
5, 000,003,255 
DATA 192,015,255, 240,03 
1,231,248, 063 
DATA 227,252,127,255,25 
4,255,255, 255 
DATA 255,255,255, 255,25, 
5,255, 255,248 
DATA 000,255,255, 255,25 
5,255, 255,127 
DATA 255,254,063, 255,25 
2,031,255, 248 
DATA 015,255, 240,003, 25 
5,192,000,255 
DATA 696, 000,000,000,00 
6, 000,000,-1 


AS 146 
KS 150 
JE 160 
BD 176 
HX 180 


Ds 190 
Ps 200 
XM 210 
HR 220 
JE 236 
EP 246 


QH 250 


This animated program moves a 
hungry character across the screen. 


How (and Why) They Work 
Normally, DEF FN is used to DE- 
Fine mathematical FuNctions 
which are calculated whenever the 
function name is used in an equa- 
tion, (Function names are always 
preceded by the letters FN.) In the 
programs above, however, DEF FN 
is used to store and execute ma- 
chine language subroutines. In or- 
der to make this work, another 
sorely neglected BASIC command 
is put to use: the USR function. 
Like SYS, USR executes ma- 
chine language subroutines. Notice 
that each of the DEF FN functions 
begins with a USR command, Ev- 
ery time one of these functions is 
used, USR is put into action. 
Normally, memory locations 
785 and 786 hold the address of the 
machine language routine that USR 
executes, It’s the responsibility of 
the programmer to set these loca- 
tions, And again, normally, memory 
location 784 contains the 6502 in- 
struction, JMP, So whenever a USR 
command is encountered, the com- 
puter jumps to location 784, from 
there jumping to the address con- 
tained in locations 785 and 786. 
To make these DEF FN rou- 
tines work, the first thing I had to 
do was exceed the norm, Line 10 re- 
moves the JMP command normally 
found at location 784 and replaces 
it with an indirect JMP. Now, in- 
stead of jumping to the address 
contained in 785 and 786, the com- 
puter jumps to the address pointed 
to by the address contained in 785 





and 786. (Don’t worry if you don’t 
understand any of this. You can still 
use the programs without knowing 
how they work.) 

In every routine listed above, 
USR jumps to the address pointed 
to by locations 122 and 123 ($7A 
and $7B), otherwise known as BA- 
SIC’s text pointer (TXTPTR). These 
two locations point to the current 
character in the current BASIC line. 
In our case, when the USR function 
is executed by BASIC, TXTPTR 
points to the plus sign (+) that fol- 
lows the USR statement. 

Now it just so happens that the 
plus sign, the POS function, the 
open parenthesis, and the quotation 
mark that follow the USR statement 
make up a series of harmless and 
completely legal 6502 machine lan- 
guage instructions, This is good, 
because when the computer's 
microprocessor finishes with those 
instructions, it reaches the important 
stuff: the strange characters stored 
between quotation marks, 

These characters were not cho- 
sen randomly; they were carefully 
selected machine language instruc- 
tions. If you own a machine lan- 
guage monitor, you can disassemble 
these strings and see exactly what's 
going on. In most cases, the machine 
code begins at 2105 ($0839), It’s 
these ML routines that accomplish 
the actual beeping and POKEing. 


It's Your Turn 

Now, I know I’m not the only one 
with a few tricks up my sleeve. So if 
you have a unique use for a neglect- 
ed BASIC command, know of a great 
way to outdo DOS, or have just writ- 
ten a powerful hack that you've been 
dying to confess to, send it to “The 
Programmer's Page,”’ c/o COM- 
PUTE!’s Gazette. If we can use it, we'll 
mention it here and—here’s the 
good part—pay you for it. Depend- 
ing on the quality and originality of 
the work, we pay $25-$50 for each 
published submission, 

Since this is the first install- 
ment of ‘The Programmer's Page,” 
I'm very interested in your com- 
ments. What type of programming 
tips are you most interested in? Do 
you want more tricks and less ex- 
planation, or the other way around? 
I’m open for suggestions, questions, 
or comments. Remember: You're 
the programmer, and this is your 
column. @ 
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RAM Expander 64 


When the Commodore 64 was intro- 
duced, 64K of RAM was considered a 
great deal of memory. Times change. 
To satisfy the ever-increasing de- 
mand for RAM, Commodore re- 
leased three expansion modules. 
“Ram Expander 64’ adds com- 
mands to BASIC to make it easy to 
access memory in these expanders. 

The RAM expansion modules 
for the 64 (the 1764) and 128 (the 
1700 and 1750) all are driven by a 
chip known as the RAM Expansion 
Controller (REC). This chip is capa- 
ble of performing four data opera- 
tions between main memory and 
expansion memory: storage, re- 
trieval, exchange, and comparison. 
BASIC 7.0 on the Commodore 128 
features built-in commands— 
STASH, FETCH, and SWAP—that 
handle the first three operations. 
“RAM Expander 64” adds identical 
commands to the 64’s BASIC 2.0, as 
well as a fourth command (COM- 
PARE). With this program in place, 
you can access any of the expansion 
modules on a 64 or from within 64 
mode on the 128. 
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Peter M. L. Lottrup 


By adding four new commands to BASIC 2.0—including 
STASH and FETCH—this short utility makes accessing RAM 
expansion memory a breeze. For the 64 with 1764 RAM expan- 
sion module, or the 128 with 1700 or 1750 module. 


Installation 
RAM Expander 64 is a fully relocat- 
able machine language (ML) rou- 
tine in the form of a BASIC loader. 
Only 209 bytes in length, this rou- 
tine is stored in DATA statements 
and POKEd into memory by the 
BASIC program. Type in the loader 
and save a copy to disk or tape. To 
ensure accurate entry, use the 
“Automatic Proofreader” program 
found elsewhere in this issue. 
When you run the program, 
you're asked to choose the memory 
location where the ML program 
will be placed. Enter an address 
that won't conflict with any other 
programs in memory. If you press 
RETURN without specifying an ad- 
dress, RAM Expander 64 is placed 
at location 49152 ($C000). After the 
routine is POKEd into memory, the 
program SYSes to the start address 
to activate the new commands. 
Pressing RUN/STOP-RE- 
STORE has no effect on RAM Ex- 
pander 64. Also, if you're in 64 
mode on a 128 and accidentally re- 
set the computer, you haven't lost 





the program. Just reenter 64 mode 
(by typing GO64 or by holding 
down the Commodore key while 
pressing the reset switch) and SYS 
to the starting address to reinstall 
the program. In this case, the con- 
tents of the memory expansion 
module should also remain intact. 


Using the Program 

RAM Expander 64 adds four new 
commands to BASIC 2,0: STASH, 
FETCH, SWAP, and COMPARE. 
The first three commands work like 
their counterparts on the 128. The 
fourth command (COMPARE) is 
similar to the VERIFY command for 
disk. It compares the contents of a 
section of the computer's memory 
and a section of the expansion mem- 
ory, reporting a VERIFY ERROR if 
the data differs. 

To be interpreted properly by 
BASIC, expansion commands must 
be preceded by an exclamation 
point and followed by four parame- 
ters. Each command takes the fol- 
lowing form: 

!COMMAND a,b,c,d 


where a is the number of bytes to 
transfer or verify, b is the base ad- 
dress of the memory block on the 
64 (0-65535), c is the base address 
of the expansion memory (0-65535), 











and d is the expander bank number 
(0-1 on the 1700, 0-3 on the 1764, 
and 0-7 on the 1750). 

For example, suppose you 
wanted to use the expansion RAM 
for program storage—much like a 
ramdisk. Assume that a 2000-byte 
ML program you need to save is lo- 
cated at 49152. To transfer it to lo- 
cation 0 of bank 1 in the expansion 
RAM module, you'd enter 
ISTASH 2000,49152,0,1 
To later retrieve the program, type 
IFETCH 2000,49152,0,1 


You can also use RAM Expan- 
der 64's commands from program 
mode, For instance, let's say you 
wanted to exchange the current text 
screen with a screen display previ- 
ously stashed in bank 0, location 0. 
To repeat the switch ten times, run 


POWEr 


David F. Ockrassa 


If you've had trouble copying the 
1571 DOS Shell to a double-sided 
disk, you're in luck—‘128 Shell 
Booter’ does the work for you. 


The DOS Shell is a program found 
on the 1571 Test/Demo disk, which 
comes with every Commodore 1571 
disk drive. The Shell is designed to 
make it easy for the user to format 
disks, copy files, and perform other 
disk-oriented tasks. Unfortunately, 
it’s very difficult to move DOS Shell 
to another disk, especially to a 
double-sided work disk. ‘’Shell 
Booter” makes the chore easy. 


Using the Program 

In 128 mode, type in and save Shell 
Booter. To ensure accurate entry, 
use “The Automatic Proofreader,” 
located elsewhere in this issue, Do 
not save the program with the name 
SHELL.BOOTER—the BASIC pro- 
gram will attempt to save a file with 
that name. If you mistakenly enter 
the program in 64 mode, line 30 








the following one-line program: 


10 FORI=1TO10:!SWAP1000,1024,0,0: 
FORJ= 1T0500:NEXT],I 


COMPARE is just as easy to 
use, Suppose you wanted to com- 
pare an ML program at location 
51000 with one you stored in bank 
1, location 5000. Assuming both 
programs are 1500 bytes long, 
you'd enter 
{COMPARE 1500,51000,5000,1 


If the two programs differ, a VERIFY 
ERROR appears. 


How It Works 

When enabled, RAM Expander 64 
redirects BASIC’s GONE routine— 
which executes the next BASIC 
statement—to point to itself. 
Whenever you enter a line of code, 


ASIC 


will not be properly tokenized. In 
this case, go to 128 mode, load the 
program, list line 30, place the cur- 
sor on the line, and press RETURN. 
The line will now be properly 
tokenized. Save the program to disk. 

Reboot your computer with the 
1571 Test/Demo disk. Now press 
F1 to enter the DOS Shell. Use the 
COPY file option to copy DOS Shell 
to any disk. Now, use the COPY file 
option to copy Shell Booter to the 
same disk. Exit DOS Shell. 

Load Shell Booter from the 
new disk and type RUN. The pro- 
gram creates a machine language 
program called SHELL.BOOTER. 

Now, whenever you'd like to 
use DOS Shell, just type BOOT 
“SHELL.BOOTER”. 


How It Works 

The reason DOS Shell is so difficult 
to transfer is that it requires the 
Bank 12 configuration of the 128. It 
also resides in the BASIC work- 
space. The necessary setup is per- 
formed by the boot sector, which is 
read automatically when you turn 





the program first checks for an ex- 
clamation point. If one is found, it 
then compares the command which 
follows with each of its own— 
either STASH, FETCH, SWAP, or 
COMPARE. If the command 
matches one of the four RAM Ex- 
pander commands, the program 
uses the four parameters that fol- 
low to set up the appropriate REC 
registers, which are memory- 
mapped at location 57088 ($DF00). 
Prior to executing the actual ex- 
pander operation, RAM under 
BASIC ROM is switched in. (The 
program requires that Kernal ROM 
remain visible.) Once the expander 
operation has taken place, BASIC 
ROM is switched back in and BASIC 
continues its normal execution, 





See program listing on page 69. @ 


128 Shell Booter 


on your 128, 

Since it is not a file, the boot 
sector is difficult to copy. You could 
use a sector copier to copy the 
whole disk, but then you would 
end up with a single-sided disk. 

The Shell Booter machine lan- 
guage program fills in for the boot 
sector, loading the program, 
switching in the correct bank, and 
altering certain pointers. 

See program listing on page 78. @ 








COMPUTE!'s Gazette is looking for 
utilities, games, applications, 
educational programs, and tutorial 
articles. If you've created a pro- 
gram that you think other readers 
might enjoy or find useful, send it, 
on tape or disk, to: Submissions 
Reviewer, COMPUTE! Publications, 
P.O. Box 5406, Greensboro, NC 
27403. Please enclose an SASE if 
you wish to have the materials 
returned. Articles are reviewed 
within four weeks of submission. 
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~ bug-swatter 


@ “Ramdisk 64” (June 1988) will 
not load files from the ramdisk cor- 
rectly, The program listing printed 
in the magazine is missing 256 
bytes, which contain the LOAD 
routine. (The disk version is cor- 
rect.) To fix the problem, type in the 
machine language listing below 
using ‘MLX,”’ the machine lan- 
guage entry program found else- 
where in this issue. When MLX 
prompts you for the starting and 
ending addresses, reply with the 
following values: 

OAGE 

0B4D 


After you've saved a copy of 
the correction, turn off your 64 and 
turn it back on. Next, load the de- 
fective copy of Ramdisk 64 (LOAD 
“‘filename”,8 for disk or LOAD“file- 
name’,1 for tape). Then load the 
correction (LOAD“filename’’,8,1 for 
disk or LOAD“ filename’’,1,1 for 
tape). Now, save the corrected copy 
of Ramdisk as you would any 
BASIC program. Be sure to use a 
new filename when you save. 
GA4E:40 GB AG GO Bl BB C9 2A 93 
QAS6:FG 12 C8 CB D1 06 FO G7 9C 
GASE:AS GA A4 OB 4C 3B GA 88 FB 
0A66:C4 B7 DO EB AS 06 48 AS EE 
QAGE:07 48 Bl 06 FO G3 
GA76:E3 
QA7E:A5 07 69 G0 85 GB AG G6 ED 
BA86:38 
GABE: 0G 
OA96:A4 9B 85 G6 84 07 


Starting address: 
Ending address: 





GAB6:85 30 85 32 20 74 B9 68 
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© Line 30 of “Key Clicker” (April 
1988) was listed incorrectly. The 64 
version never executes line 30, so it 
may be deleted from that version. 
Below is a replacement line for the 
128 version. 


QP 30 BANK15:A=2816: 
2Z2=6473:C=2 





828:T=68 


@ Versions of “128 MLX” printed 
before the version in this issue re- 
turn to BASIC with a FILENAME 
TOO LONG ERROR if the user 
enters a filename longer than 14 
characters when saving. Add the fol- 
lowing line to correct the problem. 


PF 665 IF LEN(F$)>14THEN660 


128 MLX has been corrected in 
this issue and on the August Disk. 


@ As we reported last month, there is 
a problem with the print routine in 
“Speed File” (April 1988). The pro- 
gram doesn’t print because an incor- 
rect secondary address is used when 
opening the file to the printer. There 
is also a problem with some charac- 
ters being invisible on older 64s. The 
characters don’t appear on the 
screen because the clear screen rou- 
tine in an older version of the ROMs 
doesn’t set color memory correctly. 
The following patch program cor- 
rects both of these problems. 


sp 
co 





IF A<@ THEN4G 


QB 30 X=X+A:POKE T,A:T=T+1:GOT 
020 
KD 40 IF X<>19631 THENPRINT"ER 


ROR IN DATA TOP 
FS="SPEEDPILE":REM IF YO 
U USED A DIFFERENT NAME, 
SUBSTITUTE IT HERE 
T=LEN(FS):POKE 972,T 
FOR I=l TOT 

POKE 972+1,ASC(MIDS(FS,I 
rt)) 

NEXT: POKE7669, 169: POKE76 
70,0: POKE7671,168: POKE76 
72,32: POKE7673,189 
POKE7674,255: POKE7675,1 
69: POKE7676,4:SYS828 
DATA169,1,162,8,160 
DATAG, 32,186,255,173 
DATA264,3,162,205,168 
DATA3, 32,189, 255,169 
DATAG,166,43,164,44 





KS 50 


HA 70 


11e 


156 





Modifications and Corrections 


168 
176 
180 
JH 196 
206 
EE 216 
220 
230 
RH 240 
258 
JP 260 
270 
280 
290 
300 
316 
328 
330 
340 
358 
KC 360 
HS 370 
388 
AEF 396 


DATA32, 213,255,134, 45 
DATA132,46,32,51,165 
DATA169, 8,133,252, 169 
DATA1,133,251,169,0 
DATA133,253,170,168,177 
DATA251, 221,201, 3,240 
DATA19, 208, 208,246,165 
DATA252,24,105,1,133 
DATA252,133, 254,201, 35 
DATA2@8,233,76,13,8 
DATA232,224,3, 208,232 
DATA162,0,169,153,145 
DATA253,169,3,145,251 
DATA76,116,3,201,147 
DATA240,6, 201,19, 240 
DATA2,208,35,141, 204 
DATA3,152, 72,173,204 
DATA3, 32, 210,255,169 
DATAG, 168,153,0,216 
DATAL53,0,217,153,0 
DATA218, 153, 232,218,136 
DATA2@8,241,104,168,173 
DATA204,3,96, 76,210 
DATA255, 32, 210,255,-1 





To use the patch program, sim- 
ply load it and type RUN. It will 
load Speed File (using the filename 
SPEEDFILE), make the corrections, 
and then run the program, Because 
Speed File stores its data immedi- 
ately following the program, the 
patch program and Speed File can’t 
easily be merged into one file. Each 
time you use Speed File, load and 
run the patch program, and Speed 
File will automatically load and run 
correctly. @ 





Moving? 


For address 
changes or 
subscription 
information, 
call toll free 
1-800-727-6937 













User Group Update 


Mickey McLean 


The following list includes updated entries to our annual “Guide to 
Commodore User Groups,” which last appeared in the May and June 
1988 issues. 

When writing to a user group for information, please remember to 
enclose a self-addressed envelope with postage that is appropriate for 
the country to which you're writing. 

Send typed additions, corrections, and deletions for this list to: 


COMPUTE! Publications 

P.O. Box 5406 

Greensboro, NC 27403 

Attn: Commodore User Groups 


User Group Notes 


A Bakersfield Area Commodore Users Society (ABACUS) has a new 
mailing address. All correspondence should now be sent to P.O. Box 
40334, Bakersfield, California 93306. ABACUS also has a bulletin board 
service. The telephone number is (805) 832-7186. 


The Triple Cities Commodore Society has changed its mailing 
address to P.O, Box 476, Binghamton, New York 13902. 


The Howard S. Bacon, KC4CIQ user group in South Pittsburg, Tennes- 
see, has a bulletin board number that is in operation from 9 p.m. 
Friday to 6 a.m. Monday. The telephone number is (615) 837-8352. 


The third annual Chicagoland Commodore Computerfest is being pre- 
sented by the Fox Valley 64 Users Group on August 28 at the Exposi- 
tion Center on the Kane County Fairgrounds in St, Charles, Illinois, 
The show will feature national speakers, venders, and products for the 
Commodore 64, 128, and Amiga. For more information write to 
Computerfest, P.O, Box 28, North Aurora, Illinois 60542. 


Questers of America, 10 Pink Cloud Ln., Weston, 


New Listings CT 06883-2702 





ARIZONA 


Phoenix Arizona Commodore Club (PACC), 
P.O, Box 34905, Phoenix, AZ 85067 


CALIFORNIA 


Pasadena Commodore Computer Club, P.O. Box 
1163, Arcadia, CA 91006 

Association for Sharing Commodore Infor- 
mation (ASCI, 8395 Ninth St,, Rancho Cuca- 
monga, CA 91730 

Victor Valley Commodore Interest Association 
(VVCIA), P.O, Box 385, Victorville, CA 92392 

Elf Brigade Swipe Swap, P.O, Box 173, Red Bluff, 
CA 96080 


COLORADO. 


Western Slope Commodore User's Group, P.O. 
Box 4142, Grand Junction, CO 81502 


CONNECTICUT 


The New London County Commodore User's 
Group (NLCCUG), P.O. Box 697, Groton, CT 
06340 





DELAWARE 


The Commodore U.S.A, Club, Rt, 2, Box 329, 
Delmar, DE 19940 


FLORIDA 


Commodore Connection Computer Club, Inc., 
P.O. Box 6684, West Palm Beach, FL 33405 

Mana Sota Commodore Users Group (MSCUG), 
916 E. 35th Dr, Bradenton, FL. 34208 

Ram Rom 84 Commodore Users Group, P.O, Box 
3880, Venice, FL. 34293 

Suncoast Commodore Club, P.O, Box 6628, 
Ozona, Fl. 34650-6628 


ILLINOIS 


Fox Valley 64 Users Group, P.O. Box 28, North 
‘Aurora, Il. 60542 

Commodore 64/128 Computer Pen Pal Club, 
P.O, Box 192, Georgetown, IL 61846 


INDIANA 


Rochester Commodore Computer Club, 428 Clay 
St., Rochester, IN 46975 








IOWA 

Quad Cities Commodore Computer Club, P.O. 
Box 3994, Davenport, 1A 52808 
KANSAS 


High Plains Commodore Users Group, 1307 
jestern Plains, Hays, KS 67601 


KENTUCKY 


Louisville Users of Commodore of Kentucky 
(LU.C.KY,, Ine), P.O. Box 19032, Louisville, 
KY 40219-0032 

Muhlenberg County Commodore Users Grou 
(M.C.C.U.G), P.O, Box 12, Greenville, KY 4234: 


LOUISIANA 


Sixty Four'Um Commodore User's Group, P.O. 
Box 6481, Metairie, LA 70009-6481 











USA SX-64 U: 
MA 02130 
MISSOURI 

‘McDonnell Douglas Commodore Users Group, 
c/o Bruce Darrough, 28 Redwood, Florissant, 
MO 63031 

Columbia Commodore User (CCU), P.O. Box 
7633, Columbia, MO 65205 


NEBRASKA 


McCook Commodore Users Group, 1010 East 
2nd St., McCook, NE 69001 


NEW YORK 


Commodore User Group of Westchester, P.O. 
Box 1280, White Plains, NY 10602 

Catskill Commodore Users Group, Box 160 RED, 
Woodbourne, NY 12788 


Ssturday) ‘Morning Users Group (5.M.U.G.), P.O, 
Box 721357, Corpus Christi, TX 78472-1357 
Amistad Commodore Users Group, P.O. Box 
421212, Del Rio, TX 78842 
El Paso Commodore User Group, P.O. Box 
370934, El Paso, TX 79904 
AY 





Tacoma Area Commodore Users’ Group 
(TACUG), P.O. Box 9191, Tacoma, WA 98409 
(BBS# 206-475-8084) 


WISCONSIN 


Milwaukee Area Commodore Enthusiasts 
(M.A.C.E.), P.O, Box 26216, Milwaukee, WI 
53226 

Yorkiesoft Inc, 100 Arrowhead Dr., Green Bay, 
WI 54301 


Outside the U.S. 


CANADA 
Beaver Valley Commodore Club, Box 495, 
Montrose, British Columbia, Canada VOG 1P0 
Saskatoon Commodore Users Group, P.O. Box 
7831, Saskatoon, Saskatchewan, Canada as 
ARS. 
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Zoom 


Robert Bixby 


and then makes pixel editing e 


Perfecting a hi-res screen takes 
quite a bit of work, Proportions 
need to be just right. Shading has to 
be appropriate. Details must be ren- 
dered accurately. In the process of 
turning an acceptable picture into a 
masterpiece, a Zoom mode is essen- 
tial. “Zoom” adds such a mode. 
With Zoom, you can magnify any 
area of the screen by a factor of 64. 

With Zoom in your toolkit, 
graphics creation becomes much 
more flexible. You can start a pic- 
ture with a paint program that lacks 
a zoom function, then move over to 
Zoom to add details and shading. 
You can even design and program 
your own paint program around 
Zoom. The program works with 
most hi-res screens, but color is not 
supported, 

Or, if you don’t own a paint 
program, you can use Zoom to 
modify pictures that you download 
from bulletin boards. 


Typing It In 

There are two versions of Zoom, 
one for the 64 and one for the 128. 
Both programs are written in ma- 
chine language. Using the appro- 
priate version of “MLX” for your 
computer, type in the data for 
Zoom. If you're typing in the 64 
version, respond with the values in- 
dicated when MLX asks for the 
starting and ending addresses. 


C000 
C56F 


Starting address: 
Ending address: 


After you've typed in all the data for 
Zoom, be sure to save a copy to disk. 
If you're typing in the 128 ver- 
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You never had this much control over details in your hi-res 
screens, “Zoom” magnifies any specified area by a factor of 64 


sy. Versions for both the Com- 


modore 64 and 128 are included. Joystick required. 


sion, respond with the values listed 
below. 


Starting address: 
Ending address: 


1300 
175F 


Save a copy before exiting MLX. 


The Big Picture 

To use Zoom, load the program 
with a statement of the form LOAD 
“ZOOM"’,8,1. Then type SYS 
49152 to start Zoom. On the 128, 
type BLOAD’'ZOOM" and then 
SYS 4864, 

When Zoom starts, you'll see 
the hi-res screen located at memory 
location 8192. You can draw on the 
screen by holding down the fire 
button and moving the pixel cursor 
with the joystick. 

When you're ready to go to 
zoom mode, move the pixel cursor 
to the area of the screen that you 
would like to magnify and press Z. 
The region surrounding the cursor 
is magnified. The cursor now ap- 
pears as a cross character. Move the 
cursor with the joystick. To place a 
dot at the position of the cursor, 
press the period key. To remove a 
pixel, press the comma key. 


To see the entire screen again, 
press RETURN. You can now move 
the cursor to another position on 
the screen that you wish to magnify. 

The 64 version of Zoom in- 
cludes two file commands. Press L. 
to load a screen. You'll be prompted 
for a filename. To save a picture, 
press the S key. Then enter the file- 
name with which you wish to save 
the picture. 

Because BASIC 7.0 has BLOAD 











While “Zoom” allows you to draw free- 
hand in hi-res, it really shines in de- 
tailed touch-up for your art. 





With a single keystroke, “Zoom’ drops 
into magnify mode, giving you complete 
control over every pixel. 


and BSAVE commands, the save 
and load commands are not imple- 
mented in the 128 version of Zoom, 
To load a screen and clear hi-res 
color memory (do this from BASIC, 
before typing SYS 4864), enter a 
statement of the form: 


GRAPHIC 1,1:BLOAD“filename’,P8192: 
GRAPHIC 0 


Now perform the SYS command to 
go to Zoom. 

To exit Zoom and return to 
BASIC, press Q on the 64 or ESC on 
the 128. You'll be in hi-res mode. 
On the 64, carefully type SYS 
49156 (you won't be able to see 
what you're typing) to return to the 
text screen. On the 128, type 
GRAPHIC 0,1, 

If you're using the 128 version 
of Zoom, you can now save your 
screen with the BSAVE command. 
Type the following: 

BSAVE" filename”,P8192 TO P16384 


In either version of the pro- 
gram, you are free to move back 
and forth from BASIC to Zoom as 
many times as you like. 

Note that both versions of 
Zoom assume that pictures loaded 
into the program will consist only 
of hi-res pixel data. 

See program listings on page 74. @ 








3-D Sprites 


Hubert Cross. 


Design and animate high-resolution sprites on your Commo- 
dore 64 with “3-D Sprites.” Since the program adds new 
BASIC commands, even beginning programmers can get excel- 


lent results. 


Turn on your television and you'll 
see a deluge of computer graphics, 
Perhaps it’s a local station’s news 
logo, a baseball that flies up impos- 
sibly close to the television camera 
before dissolving, or an automobile 
that magically assembles itself from 
its component parts. 

The systems that create these 
graphics cost hundreds of thou- 
sands of dollars. Your Commodore 
64 can’t match these effects, but 
you may be surprised to find out 
just what it can do with ‘’3-D 
Sprites,’’ a powerful animation 
package that features a CAD-like 
object designer. Spinning space- 
ships, flying paper airplanes, and 
walking robots are but a few of the 
possible objects you can design. 


Typing It In 

3-D Sprites consists of two pro- 
grams—a 5000-byte machine lan- 
guage program and a short BASIC 
program. The BASIC program is 
used to create data tables and code 
for the super-fast screen-copying 
subroutines that are an integral part 
of 3-D Sprites. 

Using “‘MLX,”’ the machine 
language entry program listed else- 
where in this issue, type in and save 
a copy of Program 1, the machine 
language portion of 3-D Sprites. 
When MLX prompts you for the 
starting and ending addresses of 3- 
D Sprites, enter the following values: 
4000 
53EF 


Starting address: 
Ending address: 


Next, type in Program 2, the 
BASIC portion of 3-D Sprites. Since 
this program creates machine lan- 
guage code, it must be typed in ac- 
curately. Use ‘‘The Automatic 





Proofreader” when entering it. Be 
sure to save a copy of the program to 
tape or disk when you've finished, 

To start the program, load Pro- 
gram 1 with a statement of the form 
LOAD" filename’’,8,1 (for disk) or 
LOAD “filename’’,1,1 (for tape). Be 
sure to use the filename that you 
used to save the program. Next, 
type NEW and then load and run 
the BASIC part of the program. Ac- 
tivate 3-D Sprites by typing SYS 
16384. You now have 14 new 
BASIC commands available for de- 
signing and animating 3-D objects. 


Designing Sprites 
The objects in 3-D Sprites have no 
relationship to the 64’s hardware 
sprites. Instead, they are high- 
speed, 3-D wire-frame software 
sprites, It’s convenient to think of 
them as sprites, but don’t confuse 
them with the 64's built-in sprites. 
The first command that you 
should try is DESIGN. This com- 
mand is a full-featured object de- 
signer. To enter DESIGN mode, 
you must provide the number of 
the object you want to create. The 
range is 1-255. Objects can be de- 
signed in any order; you can DE- 
SIGN object 147 even if you have 
not yet created objects 1-146 yet. 
For now, type DESIGN 1. A 3- 
D Cartesian coordinate system 
(with axes that indicate the x, y, and 
z dimensions) appears with a blink- 
ing pixel-sized cursor in the center 
position. Use a joystick (plugged 
into port 2) to move the cursor rap- 
idly. The cursor keys move it more 
slowly. At the bottom of the screen, 
you'll see the values of the coordi- 
nates. Also displayed are the angles 





of rotation around each axis. Note 
that these angles are not given in 
the normal degrees or radians, but 
rather are in “computer degrees’’— 
256 of which make up a circle. The 
center of the object is located at po- 
sition 0,0,0. You can move there in 
one step by pressing the HOME 
key, The maximum value along any 
axis is 63; the minimum is —64, As 
you draw, you normally move in 
the x,y plane. To change the z posi- 
tion, press the Z key (the letter Z ap- 
pears near the bottom of the screen), 
Move the joystick up and down to 
move the cursor rapidly, Use the up 
and down cursor keys to move it 
more slowly. To return to move- 
ment in the x,y plane, press Z again. 

Objects are built from lines. To 
draw a line, place the cursor at the 
starting point. Press the fire button 
or the space bar, and an ‘elastic’ 
line appears. Now move to the end- 
point of the line and press RETURN 
to set it down, If you wish to make a 
sequence of connected lines, press 
the fire button or the space bar at 
the endpoint of each line and then 
press RETURN at the end of the se- 
quence. Although the objects are 
black while you edit, you'll be able 
to change the color later when you 
display the object. 

As you design your object, 
you'll probably want to see what it 
looks like from different angles. Ro- 
tate it with the function keys. Press 
fl to rotate around the x-axis, f3 for 
the y-axis, and f5 for the z-axis, 
Press 2, f4, and £6 to decrement the 
angles, or f7 to reset them all to 0. 
Note again that the program does 
not use a normal scale (256 computer 
degrees = 360 normal degrees). 

When you rotate your object, 
you lose any line still elastic. You 
can add lines to a rotated object, but 
it’s more accurate to set all angles 
back to 0 before drawing. 

While designing objects, you'll 
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find that it’s convenient to be able 
to go to a point that you've already 
used, Press the S key to do this. 
With each press of the key, you'll 
move to another endpoint that you 
have placed previously. To draw a 
line between two existing vertices, 
press S repeatedly until the cursor 
moves to one of the vertices; then 
press fire and then S again, until the 
elastic line stretches to the other 
vertex, This considerably shortens 
the process of sprite design. It also 
ensures that the lines join at exactly 
the same point. 


[kd ye ze me Re RZe 


"3-D Sprites” features an easy-to-use 
three-dimensional editor. A jet fighter is 
being constructed here. 


When using the select (S-key) 
option on a rotated object, the cur- 
sor may land on a point outside the 
normal range (—64 to 63). If this 
happens, you won't be able to 
move the cursor with the joystick. 
Instead, press S again or press the 
HOME key. 

When you rotate an object, it 
rotates around the HOME position. 
You may center your object at any 
time by pressing the C key. Note 
that the centering process is 
irreversible. 

If you are designing an object 
and want to start over, press the 
CLEAR key. You'll be prompted 
with ERASE ALL ARE YOU 
SURE? (Y/N). 

Using the DELETE key is less 
drastic, It erases lines one at a time, 
beginning with the most recently 
drawn one. 

You may get two error mes- 
sages while in DESIGN mode. 
These errors are displayed at the 
bottom of the screen. The first is 
ONLY 255 LINES ALLOWED, which 
lets you know that you have 
reached the maximum number of 
lines per object. The other is OUT 
OF MEMORY, which tells you that 
you've run out of object storage 
space. These error messages should 
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be very rare. 

To leave design mode, press 
STOP. You'll return to BASIC. You 
may repeatedly move in and out of 
DESIGN mode without harm. (Only 
elastic lines are lost). In fact, if you're 
designing a very intricate object, it is 
helpful to exit to BASIC often to pre- 
view the object with the DISPLAY 
command (described later). 


Back in BASIC 
The function keys have different 
roles in BASIC mode, If you press 
f3, hi-res screen 1 is displayed. 
Press f5 to see screen 2. (DESIGN 
mode clears both screens.) Press f1 
to return to the BASIC text screen. 
You can press the function keys to 
peek at other screens whenever you 
want, even when a program is run- 
ning. But be sure not to press them 
while loading or saving. This could 
cause the load or save to fail. 
Besides the two normal high- 
resolution screens, 3-D Sprites has 
a third high-resolution screen 
which cannot be displayed directly. 
This third screen allows you to 
COPY your objects or drawings to 
the “background.” Once you have 
copied something to the back- 
ground, it will not be erased even as 
objects are moved over it. See the 
command COPY below. 


Displaying Objects 

Once you have created a 3-D sprite, 
you can enable it with the com- 
mand DISPLAY. All the parameters 
listed below are required. The ob- 
ject may appear completely on the 
screen, partially off the screen, or it 
may be located completely off the 
screen. It may also appear as a sin- 
gle dot if you place it too far away. 
Here is the syntax for DISPLAY and 
a list of its parameters: 


DISPLAY (n,s¢,¢,b,rx,ry,r2,X,¥,2) 


parameter description range 

n object number (1 to 255) 

sc scale (0 to 255) 

¢ object color (0 to 15) 

b bit pair (0 to 3) 

% x rotation (—32768 to 
32767) 

ry y rotation (—32768 to 
32767) 

1Z z rotation (—32768 to 
32767) 

x x translation  (—32768 to 
32767) 

y ytranslation  (—32768 to 
32767) 

z ztranslation —_(0 to 32767) 








Use the sprites in your own programs. 
In this demo, the letters in COMPUTE! 
spin into place, 

After creating object 1, try this 
command in immediate mode: 


DISPLAY 1,1,1,1,0,0,0,0,0,0 


After viewing the object, press f1 to 
return to the text screen. 

If you fail to type all 10 param- 
eters, you'll receive a syntax error. 
If you try to display an object that 
doesn’t contain any lines, you'll see 
this error message: 7?UNDEF'D 
SPRITE _ ERROR. An object must 
have at least one line to be consid- 
ered defined. 

The best way to animate an ob- 
ject is with a FOR-NEXT loop, This 
loop will move a spaceship from 
the border of the screen to deep into 
outer space: 

1000 SETCOLOR 0,0 

1010 FOR X=0TO5S000STEP50 

1020 DISPLAY 1,1,1,1,0,10,0,100,—20,X 
1030 FLIP:NEXT:SETCOLOR14,6: 

LOWRES 

The object is painted in white, 
using bit pair 1. The bit pair used is 
important. If you use bit pair 0 (bi- 
nary 00), the object is drawn in the 
transparent color. If you use bit pair 
3 (binary 11), it will be painted the 
same color your characters were 
when you were in text mode (the 
color number will be ignored). If 
you choose bit pair 1 (binary 01) or 
2 (binary 10), it will be painted with 
the color you specify. 

Due to the 64’s hardware limi- 
tations, the object changes the color 
of every character cell it touches; 
that is, everything in that cell which 
is painted with the same bit pair 
will change color. The effect is tem- 
porary, and everything will return 
to its previous color when your ob- 
ject moves off the cell. It is up to 
you to see that this color conflict 
does not occur. 

The other parameters are self- 
explanatory, but there are two de- 
tails which should be mentioned: 
First, when you use DESIGN, the 








positive z-axis is facing toward the 
screen. But when you use DIS- 
PLAY, it faces the other way. The 
other oddity is that you can specify 
positive or negative values for x and 
y, but z accepts only positive values. 

Unlike hardware sprites, you 
can display the same 3-D Sprite ob- 
ject at many different places at the 
same time. 


Other Commands 

The DRAW command allows you 
to draw lines on the screen, Here is 
the syntax for the command: 
DRAW (color, bitpair,X1,Y1,X2,Y2) 


The range for the coordinates is 
—32768 to 32767. The program 
will DRAW only the part of the line 
that is visible. 

The COPY command copies 
the screen that is being displayed to 
the background screen. This com- 
mand is ignored if you're in low- 
resolution mode. The best way to 
use this command (to make sure 
you're copying the screen that actu- 
ally has your paintings and not the 
other one) is to always put it after 
FLIP. What you COPY to the back- 
ground will remain there until you 
ERASE it or until you enter DE- 
SIGN mode, which uses the three 
screens for its own purposes. COPY 
can be used repeatedly without 
harm. By using it with DISPLAY 
and FLIP, you can produce an ani- 
mation that stamps itself to the 
background every now and then. 

The FLIP command allows you 
to animate your 3-D Sprite objects. 
FLIP displays one screen and di- 
rects what you're drawing to the 
other. FLIP automatically erases the 
old screen by copying the back- 
ground screen to it. 

The ERASE command clears 
all three screens: the two drawing 
screens, and the background screen. 

The SETCOLOR command 
changes the screen colors you're 
using. SETCOLOR (border, back- 
ground, bitpair 3, viewer-screen dis- 
tance) changes the border, back- 
ground, and bit pair 3 (binary 11) 
colors. 

The last parameter in the SET- 
COLOR command has nothing to 
do with colors. It’s a constant you 
can set to affect the drawing of all 
objects. This value is set to 256 
when you type SYS16384. You 
shouldn’t change it until you’re 








very familiar with the program. If 
you reduce this parameter, objects 
will become smaller and will be- 
come very distorted when close to 
the screen. If you change it toa very 
large value (like 30000), you'll have 
very little z-axis room for your ob- 
jects, and you could get 70VER- 
FLOW ERRORs very often. 

The LOWRES command flips 
to the text screen. 

The CLEAR command clears 
the sprite object database. You'll be 
asked if you're sure you want to do 
this. 

The MEMORY command prints 
the number of bytes left in the ob- 
ject database. If you think you may 
be getting close to the limit, you can 
type MEMORY to see how many 
bytes are left. 

To save and load your 3-D 
Sprite objects, four commands are 
included: DSAVE ‘‘filename’’, 
DLOAD ‘filename’, CSAVE, and 
CLOAD. DSAVE and DLOAD are 
for disk, and CSAVE and CLOAD 
are for tape. These commands save 
and load all the objects currently 
stored in the database. 

Always try to visualize what 
you're doing. In a typical 13-inch 
TV set, each pixel is about 1.4 milli- 
meters long; thus, 65536 pixels are 
65536°1.4 millimeters, or about 92 
meters. So, the imaginary space for 
your objects is a “box” measuring 
92 X 92 X 46 meters, (Remember 
that the z coordinate is only 32767 
pixels long). A sprite with a scale 
factor of 1 is only 128 X 128 X 128 
pixels at the most; that is only about 
18 X 18 X 18 centimeters. Try to 
visualize that box and imagine your 
TV as a small “window” on the 
box. How deep inside the box is 
your object; how many meters (or 
pixels) to the left or right and how 
many up or down is it? Will you be 
able to see it from the window? 
When you visualize it this way, it 
becomes easy to create Flight-Simula- 
tor-like, 3-D landscapes. Choose a 
fixed y value for the ground (you can 
even paint the ground solid with a 
loop using DRAW) and start placing 
your objects by choosing their appro- 
priate x- and z-coordinates. 


3-D Sprites, Memory, 

and Errors 

3-D Sprites moves the top of BASIC 
to $4000. The memory from $4000 
up is used for storing the code, 





lookup tables, object data, working 
space, and the three high-resolution 
screens with its three associated 
color screens. Here's a memory map: 
$4000-$53EF 
$5400-$5701 
$5702-$5AC1 
$5AC2-$5B02 
$5B03-$7CFF 
$7D00-$87FF 


Program code 
Plotting lookup tables 
Screen-copying code 
Sines lookup table 

Object database 

Working area for rotating, 
translating, and projecting 
vertices 


$8800-$8BFF Color for hi-res screen 1 

$8C00-$8FFF Color for background hi- 
res screen 

$9000-S9FFF — First half of background 


hi-res screen 

reen 1 
Hardware sprite (blinking 
dot minicursor) 

Free for utilities (such as, 
“TurboDisk”’) 

Nonzero page variables 
jor for hi-res screen 2 
ce for “DOS 






$A000-$BF3F 
SBF80-SBFBF 


$C000-$C7ED 
S$C7EE-$C7FF 


$C800-$CBFI 
$CC00-$CFFF 






Second half of back- 
ground hi-res screen 
Hi-res screen 2 
Hardware sprite (blinking 
dot minicursor) 
ROM-disabled NMI vector 
ROM-disabled IRQ vector 
3-D Sprites is not compatible with 
programs that open files to cassette 
or with programs that use RS-232 
files. 

While you're using 3-D 
Sprites, you may encounter any of 
the following error messages: 


?ILLEGAL QUANTITY ERROR 
One or more parameters are outside 
the legal range of values. 


?UNDEF'D SPRITE ERROR 
You're trying to display an object 
that does not exist. (Entering DE- 
SIGN mode does not necessarily 
create an object. An object has to 
have at least one line to be consid- 
ered defined.) 

20VERFLOW ERROR 

If you get this error, you can usually 
assume that it doesn’t come from 
BASIC, which can handle very 
large numbers, but from 3-D 
Sprites. Whenever any of your val- 
ues for the DISPLAY parameters 
cause the program’s 16/32 bit math 
to overflow, you'll get this error 
message. This usually happens if 
your scale value in the DISPLAY 
command or your viewer-screen 
distance in the SETCOLOR com- 
mand is too large. 

3-D Sprites is compatible with 
TurboDisk and with the DOS 
Wedge. 

See program listings on page 79. @ 
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$D000-$DFFF 


$E000-$FF3F 
$FF80-SFFBF 














BEFORE TYPING . . . 
Before typing in programs, please 


refer to “How to Type In 
COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 





RAM Expander 64 
Article on page 60. 


HE 16 REM COPYRIGHT 1988 COMPU 
TE! PUBLICATIONS, INC. - 
ALL RIGHTS RESERVED 
PRINT" {CLR} {3 SPACES}COP 
YRIGHT 1988 COMPUTE! PUB 
srmINCs™ 
PRINTTAB(11)"ALL RIGHTS 
{SPACE} RESERVED" 
PRINT" {DOWN}START ADDRES 
S ? 49152{7 LEET}";:INPU 
TXS:A=VAL (XS) 
FORI=ATOA+208 : READX :CK=C 
K+X:POKEI ,X:NEXT 
IFCK<>23132THENPRINT" 
{DOWN}ERROR IN DATA STAT 
EMENTS.":STOP 
B=A+11:X=INT (B/256) :¥=B- 
X*256 
POKEA+1, ¥: POKEA+3, X 
BeA+184:X=INT(B/256) :Y¥=B 
-K*256 
POKEA+45, ¥: POKEA+46,X 
POKEA+63,Y: POKEA+64,X 
SYSA?END 
169,11,160,192,141 


RH 26 


CA 30 


RP 40 





cx 50 


cp 60 


CA 70 





KB 
DH 


8a 
90 





MB 
cB 
GJ 
BC 


100 
110 
126 
136 


XH 
HG 
BA 


140 
150 
160 


3,148,9,3,96,32 
115,0,20 3,240,6 
32,121,0,76,231,16 





JJ 178 32,115,0,165,122,1 


DJ 18@ 250,165,123,133,25 
BG 


BD 


196 
200 


DATA @,162,0,32,121,0 
DATA 133,2,185,184,192, 
240 

DATA 38,197,2,208,9,32 
DATA 115,0,133,2,200,24 
DATA 144,238,185,184,19 
2,240 

DATA 3,206,208,248,200, 
165 

DATA 250,133,122,165,25 
1,133 
DATA 


cq 
JE 
Fc 


210 
220 
230 


HF 240 


SG 250 


ED 260 123,232,224,4,144, 
ax 


RB 


270 
280 


76 ,8,175,134,2,32 
138,173,32,247,183 





FB 
IX 


290 
300 


7,223,141,8,223,32 
253,174,32,138,173 
Ps 


310 247,183,146,2,223, 


GX 320 3,223,32,253,174,3 


EC 330 138,173,32,247,183 
SG 


EP 


340 
350 


4,223,141,5,223,32 
253,174, 32,138,173 
QP 366 247,183,146,6,223, 
MX 
JE 
AX 


376 
380 
390 


1,41,254,133,1,165 
2,24,105,144,141,1 
223,165,1,9,1,133 
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GM 
MH 
Qx 
EX 
JE 
cR 
GG 
EJ 


400 
418 
428 
438 
440 
456 
460 
478 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1,165,2,201,3,208 
12,173,0,223,41,32 
240,5,162,28,168,0 
3,76,174,167,83,84 
65,83,72,0,73,69 
84,67,72,0,83,87 
65,80,0,67,79,77 
80,65, 82,69, 


Investor 
Article on page 36 


HE 
PS 
sp 
PA 
JA 
MD 
SK 


BX 


cq 


FX 


MD 
ss 


JQ 
QH 


PQ 
ce 
PH 
FG 
JE 


HA 
Hg 


10 REM COPYRIGHT 1988 COMPUT 
E! PUBLICATIONS, INC. - A 
LL RIGHTS RESERVED 

20 R=53280:S=R+1:H=646 

30 IF PEEK(65530)=164 THEN R 
=65305:S=65301:H=1339 


40 IFPEEK (65530) =STHEN={B}15 
:H=241 

50 T=11:M1=1000:M2=1000:TIS= 
"G00000":X=RND (-TI) 

60 POKER, @: POKES, @: POKEH, 3:P 
RINT"{CLR}" 

70 PRINTTAB (15) "INVESTOR 
{2 DOWN)": PRINTTAB (12) "CO 
PYRIGHT 1988" 

80 PRINTTAB(7) "COMPUTE! PUBL 
ICATIONS, INC." 

90 PRINTTAB(10)"ALL RIGHTS R 
ESERVED" :FORTT=1 TO 2000: 
NEXT 

160 PRINT"(CLR}{3 DOWN} "TAB ( 


5) "NUMBER OF PLAYERS (1 
{SPACE}OR 2)? 
110 GETAS$:IFVAL(A$)< 1 OR VA 
L(A8)>2 THEN 110 
PRINTAS:FOR D=1 TO 750:N 
EXT 
FOR P=l TO VAL(AS) 
PRINT"{CLRJ {3 DOWN} "TAB ( 
9) "PLAYER"P "NAME "> 
INPUTPS (P) PS (P) =LEETS (P 
$(P),7)21EPS(P)=""THENIS 
0 


126 


136 
140 


150 


168 
170 


NEXT 

PRINT" {CLR} (2 DOWN) "TAB( 
6) "ENTER TIME LIM[T: 
{RVS}S{OFF}HORT" 
PRINTTAB (24) "{RVSJM{OFF} 
EDIUM" 
PRINTTAB (24) "{RVS}L{OFF} 
ONG": PRINTTAB (15) ; 
FTS=""THEN2G6 
THEN TM=3000:GOT 


180 
198 





200 
210 





0250 

IFTS="M"THEN TM=5500:GOT 
0256 

IFTS="L"THEN TM=8000:GOT 
0256 

GOTO 200 
FORX=BTO100:NEXT 

PRINT" {CLR} {HOME} {CYN}" 
:FORX=0T036: PRI 
NT"{Y}"; sNEXT: PRINT"P" 
PRINT" {HOME} {DOWN }" :FORB 
=07T026: PRINT" {H}":NEXT 
FORB=0T036: PRI 
NT"{P}"; RINT" S 
(LEFT) {UP}"; :FORB=GT023: 
PRINT" {N}{LEFT){UP}"; 

: IFFL=1THEN310 

DIMS§ (11) ,COL (11) :FORX=1 
T011:READSS (X) :NEXT:FORX 
=1T011:READCOL (X) :NEXT 
PRINT" (HOME}{2 DOWN} 

{2 RIGHT} {YEL} FUNDS 

{6 SPACES}":PRINT"{CYN} 
{2 RIGHT}{34 SPACES}" 
FORX=17011 
POKEH, COL (X) : PRINT" 

{2 RIGHT}"S$ (X) :NEXT 

IF TM<@ THEN TM=@ 


220 
230 
246 


250 
260 
















270 





280 





298 
300 








310 


320 
330 


348 





ce 


BD 


KM 
EE 
DA 


RK 


AP 


HC 


MA 


sQ 


GR 


xP 


EJ 


XG 


QR 


350 


390 


410 


420 
430 
440 
450 
460 


478 
480 


490 
500 
510 
520 
530 
540 
550 
560 


570 


580 
590 


600 


610 


620 


638 


648 
658 


660 


670 
680 


690 


700 
710 


720 


730 
740 


750 
760 


776 


PRINT" {HOME} (CYN}";: PRIN 
TTAB(1L6)"{RVS}"T"{OFF}" 
PRINT"{HOME}{2 DOWN} 
{YEL}"; : PRINTTAB (13) "COS 
T{3 SPACES}AT{3 SPACES} 
I{2 SPACES}LOW{2 SPACES} 
DIV {DOWN}" 
FORX=1T011 
PRINT" {DOWN} "j 2 NEXT 
PRINT" {YEL} {DOWN} "TAB (4) 
"{RVS}{8 SPACES}CASH RES 
ERVES{9 SPACES}{OFF}" 
IEVAL (AS) =1THENPRINT" 
{DOWN} {4 RIGHT}{RVS}"PS( 
1) "{OFF}":GOTO420 
PRINT"{DOWN) {4 RIGHT} 
{RVS}"P$ (1) PRINT" {DOWN} 
(4 RIGHT) (RVS}"P$(2)" 
{orr}" 
PRINT" (HOME) (3 DOWN}":IE 
FL=1LTHEN4S 86 
DIMA(T) ,B(T) ,C(T) ,CC(T), 
D(T) ,J(T) ,P1(T) ,P2(T) 
FORT=1T011 
A(T) =1002B(T)=0:C(T)=100 
CC (T)=100:D(T)=G:P1(T)= 
@:P2(T)=0 
PRINT" {CYN} "TAB(13)A(T)" 
{2 RIGHT}"B(T)C(T)CC(T) + 
NEXT 
FL=1 
PRINT" {HOME} "; :PORB=1TOL 
8: PRINT" {DOWN} "; :NEXT:FO 
RB=1T012:PRINTTAB(12)" 
{GRN}S"M1 
IFVAL(AS)=2 THEN PRINT" 
{DOWN} "TAB (12) "S"M2 
REM *MAIN ROUTINE* 
X=INT(RND (1) #12) 
IF X=@ THEN 510 
Y=INT(RND (1) *6) 
IFY=OTHENS30 
PRINT" {HOME} {CYN 
FORQ=1T02 : PRINT" {DOWN} 
NEXT 
SISINT(RND(1)*4):1F SI=0 
OR SI=2THENSI=-1:GOTOS9 
a 
St#l 
J(X)#A(X) KC (X) 2A (X)=A( 
X) +¥*S12B(X)=B(X)+¥*S12D 
(X)=¥ 
PRINT" ({CYN} "TAB (13); IEA 
(X) <=GORA (X) >=20THENB (X 
)=G3C (X)=100:CC (X)=106 
IPA(X)<=@ THEN P1(X)=0:P 
2 (X)=02A (X)=100:D$="BRK 
{SPACE}":GOT0630 
IPA(X)>=200 THEN P1(X)=P 
1 (X) #2: P2 (X) =P2 (X) #220 (X 
)=100:DS="SPL " 
IFA(X)<10@ THEN PRINT" " 


























IFA(X)<10 THEN PRINT" 
PRINTA(X)"{4 SPACES} 
{4 LEFT)"; 

IFB(X)<@ THEN POKEH, 2:GO 
70680 

GoT0710 

IPB(X)>=-9 THEN PRINT" 
{2 SPACES}";:GOTO738 
IFB(X)>=-99 THEN PRINT" 
:GOTO738 








IFB(X)<10 THEN PRINT" 
{2 SPACES}";:GOTO730 
TEB(X)<100 THEN PRINT" " 


PRINTB(X) 5 

IFA(X)>C(X) THEN C(X)=A( 
x) 

POKEH, 3: PRINTC (X); 
IFA(X)<CC(X) THEN CC(X)= 
A(X) 

IFCC(X)<16 THEN PRINT" 
{2 SPACES)"; :GOTO80 





Train with NRI for a high paying 


_ Career Servic 


DIGITAL MULTIMETER— 
‘Professional test instrument 
for quick and easy 
‘measurements, 


LESSONS—Clear, well illustrated 
texts build your understanding 
of computers step-by-step. 


DISK SOFTWARE— 
including MS-DOS, GW 
BASIC, WordStar, 
and CaleStar, 


Now you get it all. . . training for one of 
America’s fastest-growing career oppor- 
tunities. . . training to service all com- 
puters. , , training on a total computer 
system. Only NRI can give you the well- 
rounded training you need, because only 
NRI gives you a complete computer 
system, , computer, monitor, floppy 
disk drive, hard disk drive, software, 
even test instruments like a DMM and 
logic probe to work with and keep. It all 
adds up to training that builds the 
knowledge and ability you need to suc- 
ceed as a computer service specialist. 


Get inside the newest Sanyo Computer 
—fully compatible with the IBM PC* 

As an NRI student, you'll get total 
hands-on training as you actually build 
your own latest model Sanyo 880 Series 
computer from the keyboard up. It’s 
fully compatible with the IBM PC and, 
best of all, it runs programs almost twice 
as fast as the PC. As you assemble the 
Sanyo 880, you'll perform demonstra- 
tions and experiments that will give 


0 
CPU double-sided disk drive, 
256K RAM, 4.77 MHz and 8 
MHz turbo speed. 






Get started now by building this 
fully PC = compatible computer 


you a total mastery of computer 
operation and servicing techniques. 
You'll do programming in BASIC 
language—even run and interpret 
essential diagnostic software. 


Understanding you get only 

through experience 

You need no previous knowledge to 
succeed with NRI. You start with the 
basics, rapidly building on the funda- 
mentals of electronics with bite-size 
lessons. You perform hands-on experi- 
ments with your NRI Discovery Lab 
and then move on to master advanced 
concepts like digital logic, micro- 
processors, and computer memories. 


Learn at home in your spare time 

You train in your own home at your 
own convenience, backed at all times 
by your own NRI instructor and the 
entire NRI staff of educators and 
student service support people. They're 
always ready to give you guidance, 
follow your progress, and help you over 


ters, 


TECHNICAL MANUALS: 
—with complete specs on 
Sanyo computer and 
professional programs, 


DISCOVERY LAB—Using it, 


, 
you construct and test 


Circuits like those used 
3 with computers. 


the rough spots to keep you moving 
toward your goal. 


Free 100—page catalog tells more... 
send today 


Send the postage-paid reply card today 
for NRI’s 100-page catalog that gives all 
the facts about computer training plus 
career training in robotics, data com- 
munications, TV/audio/ 
video servicing, and 
many other fields. If 
the card is missing, 
write to NRI at 
the address 
below. 

*IBM is a registered 


trademark of International 
Business Machines Corp. 


Ae: re lk SCHOOLS 


McGraw-Hill Continuing Education Center 
3939 Wisconsin Avenue 
Washington, DC 20016 














Well give you tomorrow 


PK 


RR 


cp 


AR 





cB 


786 
798 
80g 
819 


820 
821 


822 


830 
840 
850 
860 


870 


880 
890 
900 


916 
926 
930 


940 
956 
968 


970 
986 


999 
1686 


1610 


1926 


1030 
1048 


1658 


1068 
1976 


1980 
1698 


1108 
1116 
1126 


11368 
1148 


1158 


IFCC(X)=160 THEN 803 
PRINT" "; 

PRINTCC(X); 

IFB(X)<@ THEN PR=.GG5*A( 
X):GOTO85G 

PR=INT (¥*.G1*A(X)) 

IF DS="SPL_" THEN PRINT" 
{RIGHT} (GRN}";D$;:D$="": 
FOR B=l TO 50G:NEXT:GOTO 
848 

IF D$="BRK " THEN PRINT" 





$ 
FOR B=1 TO 500:NEXT:GOTO 
849 
PRINT" {RIGHT} $"D(X) 7: 
B=1T0200:NEXT 
PRINT"(4 LEFT}(3 SPACES} 





‘OR 


TEP1(X)>0 THEN M1=M1+INT 
(PR*P1 (X)) 
TFP2(X)>G THEN M2=M2+INT 
(PR*P2 (X)) 
PRINT" {HOME}"; :FORB=1TO1 
8: PRINT" {DOWN}";:NEXT:FO 
RB=1T012:PRINTTAB(12)" 
{GRN}S"M1 
TEVAL (AS) =2THENPRINT" 
{DOWN } "TAB (12) "$"M2 
GETIS:IFI$="_"THEN936 
GOSUB1570: PRINT" {HOME} "T 
AB(16)"{RVS}(CYN} "TM" 
{OFF}{LEFT}{3 SPACES}" 
IETM=OTHEN1610 
GOTOS16 
INPUT" {CLR} {HOME} 
{3 DOWN}{3 RIGHT}{CYN}EN 
TER NAME OF PLAYER ";VS: 
VS=LEFTS (VS,7) 
IEVS=P$(1) THEN PL=1:MO= 
M1:GOTO98G 
IEV$=P$(2) THEN PL=2:MO= 
M2:GOTO98G 
PRINT" {DOWN}{3 RIGHT} 
{RVS}"VS"{OFF} IS NOT A 
{SPACE} PLAYER." 
FOR PA=1T01068:NEXT:GOTO 
930 
PRINT"{CLR} {HOME} {CYN}": 
PRINT"O" 'ORX=8T036: PRI 
NT" {Y}"; :NEXT: PRINT"P" 
PRINT" {HOME} {DOWN}" :FORX 
=@ TO 12:PRINT"{H}":NEXT 
PRINT"L"; :FORX=@ TO 36: 
PRINT"$P} "; :NEXT: PRINT" 
{LEFT} {UP}"; :FORX=0 TO 
2? PRINT" {N}(LEFT} {UP} 


NEXT: PRINT" (HOME) {RVS)" 
TAB(12)VS"{OFF} 

{2 SPACES}{GRN}$"MO 
PRINT"{2 RIGHT} {DOWN} 
{RVS}{YEL}{2 SPACES} FUN 
DS{18 SPACES}OQTY 

{8 SPACES}VALUE 

{2 SPACES} {OFF}{DOWN}" 
FORU=1 TO 11 
POKEH,COL (U) : PRINT" 

{3 RIGHT}"S$(U) :NEXT 
PRINT" {HOME}{3 DOWN}" 
{21 SPACES} 
IFPL=2THEN1133 

X$="{5 LEFT} ":FORX=1T01 
1 

PRINT" {CYN} "TAB (19); 
PRINT LEFTS (X$, LEN (STRS 
(P1(X)))-2)P1(X); 
IFA(X)<1@ THEN PRINT" 
{2 SPACES}";:GOTO1120 
IPA(X)<189 THEN PRINT" 
{SPACE} "; 
PRINTTAB (36) A(X) :NEXT:G 
0701268 

FORX=1TO11 

X$="{5 LEFT}":FORX=1T01 
1 























PRINT" {CYN} "TAB (19); 
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KE 


1166 
1176 


1186 


1196 
1260 


1210 
1228 


1230 


1246 
1256 


1260 
1270 


1280 
1296 


1306 
1310 
1320 
1336 
1348 


1358 
1360 


1370 


1380 


1398 
1406 


1410 
1428 


1436 


1446 
1458 


1466 


1476 
1480 


1490 


1508 
1510 


1520 


1530 
1548 


1558 


1566 
1576 
1580 
1596 
1600 
1618 


1620 
1630 


PRINTLEFTS (X$, LEN (STRS ( 
P2(X)))-2)P2(X); 
IFA(X)<16@ THEN PRINT" 
{SPACE}"; :GOTO1190 
IFA(X)<10 THEN PRINT" 
{2 SPACES)"; 
PRINTTAB (3) ;A(X) :NEXT 
PRINT"{2 DOWN}(5 RIGHT) 
DO YOU WISH TO {RVS}B 
{OFF}UY OR (RVS}S{OFF}E 
LL?"; 
GETTS:IFT$="" THEN 1216 
IFT$="S"ORTS="B" THEN 1 
250 
IFT$=" "THEN TM=TM-36:G 
070268 
GoTo 1210 
PRINT: PRINT"? {UP) 
{2 RIGHT}(30 SPACES)" 
INPUT"{UP}(3 RIGHT} ENTE 
R FUND";STS 
FOR X=] TO 11:IFSTS=S$( 
X) THEN133@ 
NEXT 
PRINT"{3 RIGHT}"STS" IS 
NOT A FUND." 
FORB=1T01000:NEXT: PRINT 
"(2 UPJ{3 RIGHT)" 
FORB=1T02: PRINT" 
{36 SPACES}":NEXT 
PRINT"{2 UP}"; :GOTO126B 
PRINT"{UP}{35 SPACES}" 
IFTS="S"THEN1456 
SL=INT (MO/A (X) ) 
PRINT"{3 RIGHT}YOU MAY 
{SPACE}BUY A MAXIMUM OF 
"SL 








INPUT" {DOWN} {3 RIGHT} HO 

W MANY DO YOU WANT"; AM: 
IFAM<@ THEN PRINT:GOTO1 
416 

IFAM>SL THEN PRINT" 

{3 RIGHT}YOU CAN'T BUY 
{SPACE} THAT MANY.":GOTO 
1466 

GoT01420 

FORB=1TO 1600:NEXT: PRIN 
T"{UP}{36 SPACES)" 
PRINT"{3 UP}";:GOTO1370 
IFPL=1 THEN Pl (X)=P1(X) 

+AM:M1=M1-INT (AM*A(X)) = 

GoTo 940 

2 (X)=P2(X)+AM:M2=M2-IN 

T(AM*A(X)) 

GoTo 946 

INPUT"{3 RIGHT}HOW MANY 
TO SELL";SL$ 

IFPL=1 THEN AM=P1(X):GO 

701486 

AM=P2 (X) 

SL=VAL(SL$):IFSL<@ THEN 
PRINT: GOTO1510 

IFSL>AM THEN PRINT" 

{3 RIGHT}YOU DON'T HAVE 
THAT MANY.":GOTO1516 

GOTO 1546 

FORB=1T01000:NEXT: PRINT 
"(2 UP}{3 RIGHT)"; 

FORB=1T02: PRINT" 

{35 SPACES}":NEXT 
PRINT"{2 UPJ"; :GOTO1459 
IFPL=1 THEN M1=M1+SL*A( 

X):P1(X)=P1(X)-SL:GOTOL 
560 

IFPL=2 THEN M2=M2+SL*A( 

X) 2P2 (X)=P2 (X) ~SL 

Goro 948 

TM=TM-1 

IFTM=<@ THEN TM=@ 

RETURN 

REM *** END OF GAME *** 
PRINT" {CLR} {HOME} {DOWN} 
{CYN}"; :PRINTTAB (12) "MA 
RKET CLOSES{4 SPACES}" 

FORX=1TO11 
PA=PA+P1 (X) *A(X) 











1648 
1656 


RK 
CR 


NEXT 
PRINT"{3 DOWN} "TAB (10) " 
FINAL{2 SPACES}STATISTI 
cs{2 DOWN)" 

PRINT" {RIGHT} PLAYER 

{2 SPACES}CASH 

{5 SPACES}FUNDS 

{5 SPACES}NET WORTH" 
PRINT"{RIGHT}{6 T 

{2 SPACES} {4 T} 

{5 SPACES}{5 T} 

{5 SPACES}{9 T}{2 DOWN} 


FR 1660 


EM 1678 


1680 PRINT"{RIGHT}(RVS}"P$(1 
): PRINT" {OFF} {uP} 

{9 RIGHT}$"ML"{CYN}" 
PRINTSPC(18) : PRINT" {UP} 
S"PA 

T1=PA+M1 
PRINTSPC(28)"{UPJ$"T1 
IEVAL (AS) =2THENPRINT" 
{DOWN} {RIGHT} {RVS}"PS$ (2 
}:GOTO1748 

GoTo 1816 

FORX=1TO11 

PB=PB+P2 (X)*A(X) 

NEXT 
PRINTSPC(9):PRINT"{UP) 
{CYN}$"M2 
PRINTSPC (18) "{UP}$"PB 
T2=PB+M2 
PRINTSPC (28) "{UP}S$"T2 
PRINT"{5 DOWN}"TAB(11)" 
PLAY AGAIN? (¥/N)" 
GETAS:IFAS="" THEN 1820 
IFAS<>"¥" THEN END 

RUN 

DATA LEISURE,AEROS PACE, 
GOLD, ENERGY ,AGRICULTURE 
TECHNOLOGY , AUTOMOTIVE 
DATA MINERALS, CHEMICALS 
, COMPUTERS, ELECTRONICS 
DATA 2,6,7,3,9,11,8,12, 
4,1,14 


Cribbage 128 


See instructions in article on page 
32 before typing in. 


Program 1: Cribbage 128— 
Machine Language 

1306:D8 18 
1308:8D AQ 
1310:18 8D 
1318:16 46 
1320:A2 98 
1328:A0 
1330:28 
1338: 26 
1340:88 
1348:95 
1350:89 
1358:5¢ 
1360: 8D 
1368:1A 
1370:1A 
1378:cD 
1380:18 
1388:5¢ 
139¢:4¢ 
1398: 60 
13A0:00 


1698 


1706 
1716 
1726 


1736 
1748 
1758 
1768 
1778 


1786 
1798 
1800 
1818 


1828 
1830 
1846 
1850 
1868 


1876 





13F8:C8 





\ - 





1400:06 
1468:CO 
1416285 
1418:E8 





1420:F0 
1428:1a 
1430:00 
1438:E8 





14BG:00 
14B8:6B 
1400:68 
14C8:E8 
14D6:AD 





1580:88 
1508:48 
1516:6D 
1518:EA 
1520:1A 
1528:00 
1530:A2 
1538:C9 
1540:E0 
1548:FA 











16A8:13 28 99 13 286 DA 13 20 7D 
16B0:30 15 20 1F 16 20 32 16 DB 
16B8:20 





16C8:77 

16D8:02 BO 69 18 AD 76 1A CD 16 
16D8:78 1A 98 18 AD SC 1A 8D FB 
16E@:7A 1A AD 5D 1A 8D 7B 1A 74 
16E8:AD 77 1A 8D 79 1A AD 76 EB 
16F0:1A 8D 78 1A A9 GB 8D 76 1D 
16F8:1A 8D 77 1A 8D 64 1A EE 47 
1700:64 1A 18 EE 99 1A AQ 16 29 
1708:CD 90 1A D@ 99 58 60 A2 23 
1710:01 8A 9D 6G 1B £8 18 EG A2 
1718:35 DG F6 60 78 A2 GB AD FL 
1720:00 8D G8 FE 85 FA 8A 48 27 
1728:AD 86 DC 6D @7 DC 18 69 66 
1730:01 29 OF 18 65 FA 18 C9 9D 
1738:34 98 G2 A9 34 85 FB AG DS 
1740:FA AQ 34 38 E5 FB A8 £4 BS 
1748:FB FO OB E8 C8 BD GG 1B FS 
1750:99 34 1B 4C 47 17 AS FB OSE 
1758:85 FA C9 34 DG CA A2 34 AF 
1760:BD 34 18 9D @@ 1B CA DG BA 
1768:F7 A9 GG 85 FA 68 AA E8 GD 
1778:D0 B4 58 66 78 A2 Gl AG 36 
1778:01 BD G6 1B 99 34 1B BD D9 
1780:1A 1B 99 35 1B C8 C8 E8 7F 
1788:E0 1B DG ED A2 34 BD 34 7c 
1790:18 9D 0G 1B CA DG F7 58 47 
1798:68 G8 G6 68 GG Ga GG Ga FG 


Program 2: Cribbage 128— 
BASIC 


HE 


DE 


AQ 


BR 
GQ 


Gs 
RQ 


RA 


PF 


BE 


8X 
ED 


MQ 
EF 
cc 


AD 


PM 


BK 
MG 
FS 
FH 
CE 
PH 
MB 
sc 


10 REM COPYRIGHT 1988 COMPUT 
E! PUBLICATIONS, INC. - A 
LL RIGHTS RESERVED 

2@ GRAPHIC@: SLOW: PRINT" (CLR) 
{3 SPACES}COPYRIGHT 1988 
(SPACE}COMPUTE! PUB., INC 


3@ PRINTTAB(11)"ALL RIGHTS R 
ESERVED" :BLOAD"CR128" 

40 TRAP4340 

50 DIMN(13) ,S(13) ,NS (13) ,SS( 
13) ,O$(13) ,C$(13) ,PN(4) ,P 
8 (4) ,PNS(4) ,PSS (4) ,PCS(4) 
+PR(4) 

60 PRINT" {CLR}":COLORG, 2:COL 
OR4, 14: PRINTCHRS (11) 

70 DEFENV (X)=X-INT (X/1@) * (X- 
18) 

80 GC=0:GP=0:PZ=0:CZ=0:BBS=" 
"IBL=@:NNS=" A 23 4 5 6 
{SPACE}7 8 910 3 Q K" 

90 C1=0:C2=0:C3=0:C4=G:H1= 
H2=6:H3=02H4=@:HD=6:0V=| 
SYS5903 

100 PRINT" ({CLR}":RESTORE:FOR 

I=17T08:SY=(I-1)*2+1:SX=( 
I=1) *4+2:GOSUB3850:GOSUB 
4070 








120 GOSUB300:FORI=1T05:SYS59 
16:NEXT 

130 GOSUB360:GOSUB380:GOSUB4 
68 





140 H=O 2 PC=0: TC=G: PH=0 
:PP=Q:TP=G:HD=HD+1 
150 IFCRTHENPOKE6783,255:ELS 


EPOKE6783,0 

168 GOSUB306:GOSUB350:GOSUB6 
80: GOSUB2376:GOSUB77:GO 
SUB1530: IFOVTHENSG 

170 PRINT" {CLR}":GOSUB104G:P 
OKE6756,N(13) 

180 IFCRTHENGOTO210 

198 GOSUB2440:IFOVTHENSO 

206 IFCRTHEN230 

210 GOSUB2640:IFOVTHENSO 

226 IFCRTHEN?196 

230 REM 

248 GOSUB2816:IFOVTHEN9G 

258 GosuB411¢ 








sc 
cR 


BD 
SM 
AD 
GR 


xQ 
oP 


HP 
PA 


BD 


MR 
FG 


260 
278 


280 
296 
300 
316 


320 
336 


340 
350 


360 


370 
386 
398 
408 


410 


420 
430 
440 


450 
460 
470 
480 
490 
506 
516 
520 
530 
540 
550 
560 
570 
580 
596 
650 
61g 
620 
630 
640 
650 
660 
6768 


680 
690 


700 
10 






GosuB3260 

CHAR1, 16,23: PRINT" {BLU} 
{RVS}13 SPACES}HIT A KEY 
{3 SPACES}" 

GETKEYAS 

CR=ABS (CR-1) :GOTO140 

REM SHUFFLE CARDS 
CHAR1,16,23:PRINT"{YEL}S 
HUFFLING CARDS" 
SYS5916:SYS6G04 
FORI=1T013:N (I) =PEEK (691 
2+1):S(I)=INT((N(I)-1)/1 
3)+12N(I)=N(I)~(INT((N(I 
)=1) /13)*13) :NEXT 

RETURN 

REM SUBROUTINE TO STORE 
{SPACE}VALUES INTO MEMOR 
x 


FORI=@T05: POKE (I+6736) ,N 
(1+1) : POKE (1+6742) ,S(I+1 
) :NEXT 

RETURN 

REM CUT FOR DEAL 

SYS5916 
FORI=1T02:N (I) =PEEK (6912 
+1) 

S(I)=INT ((N(I)-1)/13)+1: 
N(IT)=N(I)=(INT((N(I)=-1)/ 
13) *13) 
NS(I)=MIDS(NNS,N(I)*2-1, 
2) 


NEXT 

TEN (1) <N(2)THENCR=1: ELSE 
IEN (1) >N(2) THENCR=0:ELS 

EGOTO386 

RETURN 

PRINT" {CLR}" 

FORI=1702 

IS (I) =1THENS$="{BLKJA": 

CS="{BLK}" 

IES (I) =2THENSS="{BLK}X": 

CS="{BLK}" 

IFS (I)=3THENSS="{RED}S": 

C$="{RED}" 

IFS (I)=4THENSS$="{RED}Z": 

CS="{RED}" 

IF NS(I)<>"1G6"THENNS (I)= 

RIGHTS (NS (I) ,1) 

NS$(I)=CS+NS(I) 

SX=8:SY=(I-1) *10+4:NUS=N 

$ (1) :SUS=S$:GOSUB3850:GO 

SUB3910:NEXT 

CHAR1,15,1:PRINT"{1}CUT 

{SPACE}FOR DEAL" 

CHARI, 15,7: PRINT" {3}COMP 

UTER CUT" 

CHAR1, 15,17: PRINT" {7 

BS;""s CUT" 

SYS5916:SYS5916:SYS5916 

RETURN 

PRINT" {CLR}" 

FORI=1T013:NS (I) =MIDS (NN 

$,N(I)*2-1,2) 

IFS (1) =1THENS$ (1)="{BLK} 

A":CS="{BLK}" 

TES (1) =2THENSS (I)="{BLK} 
2C$="{BLK}" 

TIE) SENS Aes) 

"{RED}" 

(1) =4THENSS (I)="{RED} 

z "{RED}" 

TF NS (I) <>"10"THENNS (1)= 

RIGHTS (NS (I) ,1) 

NG (I) =CS+NS (I) :NEXT 

FORI=7T012 

NUS=NS (I) :SUS=SS (I) =NM=I 

X= (1-7) *5:S¥=1:GOSUB 

3858: GOSUB3968:SY=15:GOS 

UB385G :GOSUB3910:GOSUB40 




















{RED} 











NEXT 

BRS="{YEL}I{DOWN} {LEFT}=- 
{DOWN} {LEFT}-{DOWN} 
{LEFT} {03 {DOWN} {LEFT} — 
{DOWN} [LEFT}-{DOWN} 
{LEFT}K{3 upy" 
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ks 


BD 


oP 


Gs 
HE 


XG 


DK 
HK 


BC 


gc 


JA 
MX 


DP 
ME 


MD 


MP 
EX 
HP 
xB 
Mx 
JK 
Dx 
XK 


FK 
MC 


SB 
HD 
co 
QP 





SG 


720 


730 


740 


750 
768 
778 
786 


791 


800 


818 
820 


830 


848 
850 


860 


870 


890 


960 
916 
920 


930 
946 
958 
960 
970 
980 
990 


1066 


ITECRTHENCRS="{3}COMPUTER 
CRIB" : ELSECRS$="{7}"+BBS 
+""S CRIB" 

CHARL, 30, 1: PRINTBRS+"{3} 
COMPUTER{DOWN}{6 LEPT}HA 
No" 

CHAR1, 30,15: PRINTBRS+" 
£73"; BBS; "'S":CHARL, 31+1 
NT (LEN (BBS) /3) ,19: PRINT" 
HAND" 

CHARI, 20,8: PRINTBRS+CRS 
RETURN 

REM PLAYER'S DISCARDS 
D1=6:D2=G:HH=54:SX=16:SY 
=23:CHAR1, 4,23: PRINT" {7} 
DISCARD # 1":GOSUB1239:D 
1=VAL (AS) :CHAR1, 4,23:PRI 
NT"{16 SPACES}" 
SX=(D1-1) *5:S¥=15:GOsuB3 
990 :GOSUB4050:SY=8:SX=10 
:NUS=NS (D1+6) :SUS=S$ (D1+ 
6) :GOSUB3856 :GOSUB3916 
SX=16:SY=23:CHAR1,4,23:P 
RINT"{3}DISCARD # 2":GOS 
UB1230:D2=VAL (A$) :CHAR1, 
4,23:PRINT"{16 SPACES}" 
IF (D1<>D2) THENG3B 
SX=10:SY=8 :GOSUB3990:SY= 
15:SX= (D1-1) *5:NUS=NS (D1 
+6) :SUS=S$ (D146) :NM=D1:G 
0SUB3850:GOSUB3916:GOSUB 
4926:GOTO78G 

SX= (D2-1) *5:S¥=15:GOSUB3 
990: GOSUB4050:SY=8:SX=15 
:NUS=NS (D2+6) :SUS=S$ (D2+ 
6) :GOSUB3850:GOSUB3910 
SYS5916 

GOSUB1040: PRINT" {CLR)": 
ORT=1704 

SX= (1-1) *5:S¥=1:GOSUB385 
9:GOSUB3966:SY=15:NUS=PN 
$ (I) :SUS=PS$ (I) :NM=I:GOS 
0B3856:GOSUB3910:GOsUB40 
20:NEXT 

CHAR1,6,0:PRINT" {6}{RVS} 
{39 SPACES)": POKE1063,16 
G:POKE55335,13 

"£23{A}* 


St" 
PRINT"= {PUR} 
PEGGING POINTS{2 SPACES} 
423-" 

CHARL, 20, 3: PRINT" {Q}**** 
RRERER}RAAAR ARAL! 
CHARL, 25-INT (LEN (BBS) /2) 
242 PRINT" {7}"; BBS; "{2}" 
CHARL, 20,4: PRINT"— 

{8 RIGHT}-{3}COMPUTER{2} 























CHARL, 20,5: PRINT" {Q}**** 
piirvirtisiity ts) 
CHARI, 20,6: PRINT"- 

{8 SPACES}-(8 SPACES}-" 
CHAR1, 20,7: PRINT" {Z}* 
BRRRCED RARE HRAREX SM 
CHARL, 21,16: PRINT"{13 {A} 
SaeaAAARRRESS! 

CHARI, 21,17: PRINT"— 

{10 SPACES}-" 

CHARL, 21, 18zPRINT" {Q}*** 
saeeeeretyy” 

CHARL, 21,19: PRINT"-{RED} 
{rvs}{1@ SPACES} {OFF)-" 


CHARL, 21,20: PRINT" {Z}** 
erreieiys st 





1019 SY=15 


1926 


1636 
1646 
1056 
1068 


1076 


SX=34 :NUS=NS (13) :SUS=SS. 
(13) :GOSUB3850:GOSUB391 
@:CHAR1, SX+1,SY+5: PRINT 








FORI=7T012 
IF (I=(D1+6))OR(I=(D2+6) 
) THEN1166 
PN(J)=N(I):PS(J)=S(1):P 
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MP 
BP 
FB 


Qx 
ES 


1980 
1996 
1166 


lle 
1120 
1138 
1148 
1159 


NS (J) =NS (I) 2 PSS (J) =SS(T 
) 


J=J+1 

GoTO1126 

NC(K)=N(I) :SC(K)=S(I):N 
C$ (K)=NS (I) 2SC$ (K)=S$(I 


) 

K=K+1 

NEXT 

g=1:K=3 

FORI=1T06 

IF (I=D3) OR (I=D4) THEN119 


@ 
1168 CN(J)=N(I)2CS(J)=S(I):C 


1176 
1180 
1190 


1200 
1210 


1226 
1230 
1248 


1250 
1260 


1270 
1288 


1298 
1300 
1316 


1326 
1338 
1348 


1358 
1366 


1378 
1380 
1398 
1468 
1410 
1420 
1436 


1440 
1450 


1466 
1476 
1486 


1496 


NS (J) =NS (I) CSS (J)=S$ (I 
) 

J=5+1 

GoTO1216 

NC(K)=N(I) :SC(K)=S (I) :N 
CS(K)=NS(I) 2SCS(K)=SS$(I 
) 


K=K+1 

NEXT 

RETURN 

BL=0 
GETAS:BL=ABS (BL-1) :CHAR 
1,SX, S¥:PRINT"{6}"; :1FB 
LTHENPRINT"{RVS} {+} "EL 
SEPRINT"{+}" 
IPAS=""THEN1240 
TELEN (AS) >1THENAS=" 
70124 

IED2THEN1296 
IFAS="H"THENGOSUB2300:G 
0701240 

IE (ASC (A$) <49)OR (ASC (AS 
) HH) THEN1246 

CHARL, SX, SY: PRINTAS: RET 
URN 

CHAR1,@, 6: PRINT" {6} 
{RVS}139 SPACES)": PTS=¢ 





GO 





\ }CHARL, 29,17: PRINT" 


{3 SPACES}":CHAR1,22,17 
:PRINT"{5}TALLY ="; TAL: 
IFSG=SETHEN2100 

PRINT" {6}":CHAR1, 0,0 

IF SF-SG<3THEN1356 

TE (NP(I)=NP(I-1)) AND (NP 
(1) =NP (1-2) ) AND (NP (I) =N 
P (1-3) ) THENPTS=12: PRINT 
"{RVS}FOUR OF A KIND FO 
R 12. {OFF}";:GOTO1386 
IE SF-SG<2THEN1376 

IF (NP (I)=NP(I-1)) AND (NP 
(1) =NP (I-2) ) THENPTS =6: P 
RINT" {RVS}THREE OF A KI 
ND FOR 6.{OFF}";:GOTO13 
80 

IPNP(I)=NP(I~1) THENPTS= 
2:PRINT"{RVS}PAIR FOR 2 
+ {OFF}"; 
IPTAL=31THENPTS=PTS+2:2 
RINT"{RVS} 31 FOR 2. 
{OFF}"; 
IPTAL=15THENPTS=PTS+2:P 
RINT"{RVS} 15 FOR 2. 
{OFE}"; 
IPSP-SG<2THEN2100 
FORAD=1T0 (SF-(SG+1)) :GO 
SUB148@:CNT=8 

IF (QT (SE) -QT (SG+AD)) > (S 
P-(SG+AD) ) THEN146@ 
FORH= (SG+AD) TOSF: IF (QT ( 
H) +1) =QT (H+1) THENCNT=CN 
T+l 

NEXT 

IF ( (SF+1)-(SG+AD) )=CNTT 
HENPTS=PTS+CNT+1: PRINT" 
{RVS} RUN FOR"; 
{LEFT}. {OFF}" 
NEXT 
GoTo2198 
FORH= (SG+AD) TOSF+1: QT (H 
) =NP(H) NEXT 

FORG= (SG+AD) TOSF+1:FORH 
= (SG+AD) TOSF. 








EK 


KX 


=M 


1500 


1516 
1520 
1536 
1540 


1558 


1568 
1578 
1586 
1590 


1688 
1618 


1620 


1630 


1646 
1650 


1660 
1676 
1686 
1698 


1706 
1716 


1728 
1738 
1740 
1750 
1766 
1778 
1788 


1798 


1800 


1816 
1820 


1836 
1846 


1856 


1868 
1878 


1880 
1898 
1998 
19168 
1928 
1936 


1940 


IF QT (H+1) <QT (H) THENBIG= 
QT (H)=QT (H+1) QT ( 
IG 





NEXT:NEXT 

RETURN 

REM PEG SUBROUTINE 
PC=G:PP=6:TAL=0:SF=0:SG 





=0:DU=G:1=1:SP=0 

TU=CR: IFN (13) <>11THEN15S 
60: ELSECHAR1, 6,0: PRINT" 
£6}{RVS}TWO FOR HIS HEE 
LS":SYS5916:SYS5916: IFC 
RTHENPC=2: ELSEPP=2 
GOSUB131 

DO UNTIL 1=9:PL(I)=0 
IFTUTHENGOSUB374@:ELSE1 
608 








ENI=I-1:SF=SF-1:GOTO168 
@:ELSESP=1 
TU=G:GOSUB3670 
IEDUTHENGOSUB1750:GOTO1 
660:ELSEIFSPTHENI=I-1:S 


F-1:GOTO1680: ELSES P= 
U=1:GOTO1580 
X=30:SY=19;CHARL 
122, 19:PRINT"({GRN} CARD 
#{3 SPACES}{2 LEFT} ":G 
0SUB1230:NO=VAL (AS) 
PL=ENV (PN (NO)) : IF (PN (NO 
)=32) OR (TAL+PL>31) THENL 
628 






CHAR1, 22,19: PRINT" {RED} 
{RVS}{1@ SPACES}{OFF}"; 
PL (I)=PLiNPS (I) =PNS (NO) 
:SP$(I)=PS$(NO):CP§(I)= 
PCS (NO) ENP (I) =PN (NO): PN 
(NO)=32 

GOSUB199@: TAL=TAL+PL?GO 
$UB1316 
IFTAL=31THEN1700: ELSEIF 
I=8THEN1680:ELSE1710 
IFTUTHENPP=PP+1:ELSEPC= 
PCH 
CHAR1, 26, 0: PRINT" {6} 
{RVS}1 FOR THE GO. {OFF} 
"; 3GOSUB2100 
G=SF+1: 
I=I+1: TU=ABS (TU-1) :SF=S 
F+1:SP=6: IPOVTHENRETURN 
Loop 





SYS5916 

RETURN 
NP(I)=:PR=0 
FORA=1T04:PR(A) = 





IFCN (A) =32THEN1910 
PL=ENV (CN (A) ) = 18 (TAL+PL 
)>31THEN1916 

IF SE=SGTHENGOSUB3430:GO 
701900 

IE (NP (I-2)=NP(I-1) ) AND ( 
CN(A)=NP (I-1) ) THENPR (A) 
=PR(A)+30 
IFPR>29THEN1910 

IF ( (SF-SG)>1) AND (PL+TAL 
<32) THENGOSUB 2150: ELSEG 
orols4a 

TEPR>14THEN1900 

IF (PL+TAL=31) THENPR (A) = 
PR(A)+11:G0TO1966 
IFPL+TAL=15THENPR (A)=PR 
(A) +11:GOTO1966 
IFPR>1@THEN1910 


IE (CN(A)=NP (I-1)) AND (PL 
+TAL<31) THENPR (A) =PR (A) 
+7:GOTO1908 
IFPR>6THEN1916 
GOSUB3340 

IEPR (A) >PRTHENPR=PR (A) 
NEXT 

PR=-18 

FORA=1T04: IFCN(A)=32THE 
N1966 
PL=ENV(CN(A)) :IF (TAL+PL 
)>31THEN1960 














Fs 


HE 


RS 


cs 
Qk 


1950 
1966 
1976 


1986 
1996 


2008 
2016 


2028 
2030 
2040 


2650 


2066 


2076 


2088 
2098 
2100 
2116 
2120 
2130 
2148 


2156 
2166 


2176 


2180 
2190 


2200 
2210 


2226 
2230 
2240 


2256 
2266 


2278 
2280 
2298 
2360 
2319 
2328 


2330 


2346 
2358 


IEPR (A) >PRTHENPR=PR (A) = 

B=A:GOSUB3330 

NEXT 

PL=ENV (CN(B)) :CN(B) =32 

RETURN 

IETU=OTHENS Y=1:SX=(B-1) 

#5: ELSESY=15:SX= (NO-1) * 

5:GOSUB4050 

GOSUB3990 

S¥=B:SX=(I-1) *4:NUS=NPS 
(I) :SUS=SP$ (I) :GOSUB385 

8:GOSUB3918 

RETURN 

REM ENTER NAME 

SX=25:SY=22: PRINT"{7}": 

CHAR1, 6,22: PRINT"PLEASE 
ENTER YOUR NAME: 

12 SPACES} {RVS} 

{6 SPACES)": PRINT" (STX 
{SPACE}LETTERS MAXIMUM) 








GETA$:BL=ABS (BL-1 

1, SX, S¥:PRINT"{7} 

LTHENPRINT"(RVS} 

PRINT" * 
IFBB$=""THEN2070:ELSEIP 

ASC (A$) =13THEN2080:ELSE 
IFASC(A$) =20THENCHARL,S 

X,SY:PRINT"(RVS) ":SX=S 

X~1:BBS"LEFTS (BBS, LEN (B 

BS)-1) 

TE(ASC(AS) 65) OR(ASC(AS 
)>98)OR (AS="") OR (LEN (AS 
)>1) THENAS="":GOTO2856: 
ELSEBB§=BBS+A$:CHAR1, SX 
,SY:SX=SX+13 PRINT"{RVS) 
"ZAS2 IESX<>31THEN2650 

CHARL,@, 22: PRINT" 
{39 SPACES}":CHAR. 
:PRINT"(21 SPACES}" 
RETURN 

IF TU=1THENPP=PP+PTS: ELS 
EPC=PC+PTS 

PRINT" {7}":CHARL, 24, 6:P 
RINTPP: PRINT" {3}":CHARL 
133,63 PRINTPC 

GOSUB3600 

PTS=0 

RETURN 

REM CHECK RUNS 

FORAD=1T0 (SF-(SG+1)) :GO 

SUB2240:CNT=0 

IE (RT (SF) =RT (SG+AD) )>(S 

P= (SG+AD)) THEN2220 
FORH= (SG+AD) TOSE 

IF (RT(H)+1) "RT (H+1) THEN 

CNT=CNT+1 

NEXT 

TE ((SE+1)~(SG+AD)) =CNTT 

HENPR (A) =PR(A)+ (5*CNT) = 

G0T02238 

NEXT 

RETURN 

FORH= (SG+AD) TOSF: RT (H)= 

NP (H) :NEXT 

RT (SE+L) =CN(A) 

FORG= (SG+AD) TOSE :FORH= ( 

SG+AD) TOSE 

IERT (H+1) <RT (H) THENBIG= 

RT(H) 2 RT (H)=RT (H#1) 2 RT ( 

H+1) =BIG 

NEXT: NEXT 

RETURN 

REM HINT SUBROUTINE 

IFCRTHENPOKE6783, 

POKE6783, 255 

CHARI, 12, O:PRINT'{€1}THI 

NKING... 

PORTSOTOS: POKE (146736) , 

N(I+7) : POKE (1+6742) ,S(I 

+7) 2NEXT 

SYS5789:CHAR1,18,@:PRIN 

T"{5 SPACES}" 

CHARL, 12,0: PRINT" {7}HIN 
+ "BEEK (6778) +13" "7 

EEK (6779) +1 














23 














ELSE 











2360 
2378 
2386 


2390 
2408 
2410 
2420 
2430 
2440 
2458 
2468 
2476 
2480 
2496 
2508 
2516 


2520 
2530 


2540 


2550 
2560 


2570 
2580 


2590 
2600 


2618 
2620 
2638 
2640 
2650 


2660 
2670 


2686 


2690 
2700 


2718 


2720 
2738 


2740 
2758 


2768 
2778 


2788 
2790 
2800 
2810 
2828 
2836 


2846 
28508 
2868 
2870 


2880 


RETURN 

SYS5789 

D3=PEEK (6778) +1:D4=PEEK 
(62779) +1 
SY=1:SX=(D3-1) *5:GOSUB3 
998 

S¥=8: SX=8:GOSUB3850:GOS 
UB3968 
SY+1:SX=(D4-1)*5:GOSUB3 
990 


S¥=8 :SX=5:GOSUB3850:GOS 
UB3966 

RETURN 

REM COMPUTER HAND 

FC=1: POKE6757,9 
PORI=1T04:POKE (6751+I), 
CN (I) :NEXT 

SYS5663 

CH=PEEK (6766) 

FORI=1T03 

IECS (I) =CS(1+1)THENFC=F 
c+ 


TF (CN(I)=11)AND(CS(I)=S 
(13) ) THENCH=CH+1 

NEXT 

IF (CN(4)=11)AND (CS (4)=S 
(13) ) THENCH=CH+1 

IF (EC=4) AND (S (13)=CS(1) 
) THENCH=CH+5:GOTO2560 
IFEC=4THENCH=CH+4 
FORI=1T04:SX= (1-1) *5:SY 
=1:NUS=CNS (I) : SUS=CS$ (I 
):GOSUB3856:GOSUB?3910:N 
EXT 

GOSUB1026 

CHAR1, 2,10: PRINT" 

{33 SPACES}" 

CHARL, 5,10: PRINT" {33COM 
PUTER'S SCORE I5";CH 
PRINT: PRINT" {RED} 

{18 SPACES}{RVS}HIT A K 
ey" 





GETKEYAS 

GOSUB 3608 

RETURN 

REM PERSON'S HAND 

FP=1: POKE6757,9:FORI=1T 
04:POKE (6751+I) ,PN(I):N 


EXT 

SYS5663:PH=PEEK (6766) 
FORI=1T03: IF PS (I) =PS (I+ 
1) THENFP=FP+1 

TF (PN(I)=11) AND (PS (I) =S 
(13)) THENPH=PH+1 

NEXT 

IE (PN (4)=11)AND (PS (4)=S 
(13) ) THENPH=PH+1 

IF (EP=4) AND (S (13) =PS (1) 
) THENPH=PH+5:GOTO2730 
IFFP=4THENPH =PH+4 
FORI=1T04:SX=(I-1) *5:SY 
=1:NUS=PNS (I) :SUS=PS$(I 
) :GOSUB3856:GOSUB3910:N 


EXT 
GosuB1620 

CHAR1, 2,10: PRINT" 
(33 SPACES)" 
CHAR1, 5,16: PRINT" {7} 
BS;"'S SCORE IS";PH 
PRINT: PRINT" {BLU} 
{1G SPACES) {RVS}HIT A K 
Ey" 











GETKEYAS 

GOSUB3668 

RETURN 

REM CRIB HAND 

FR=1: POKE6757,9 
FORI=1T04: POKE (6751+I) , 
NC (I) :NEXT 

SYS5663 

RH=PEEK (6766) 

FORI=1T03 

IFSC (I) =SC (I+1) THENER=F 
R+1 

IF (NC(I)=11)AND(SC(I)=S 
(13) ) THENRH=RH+1 





AG 


sc 


PQ 


QP 


GH 


DM 


DA 


AP 


BK 


SA 


Xx 


BP 


FS 


2896 
2900 


2916 


2920 


29308 
2946 


2958 
2960 


2970 


2980 
2998 
3008 
3010 
3020 


3030 


3040 


3050 


3060 


3070 


3080 


3098 


3160 


3118 


3120 


3130 


3146 


3150 


3166 


3178 


3188 


3196 
3200 


3216 
3220 
3230 
3240 


NEXT 
IF (NC (4)=11)AND(SC(4)=S 
(13) ) THENRH=RH+1 

IF (FR=4) AND (S (13)=SC(1) 
) THENRH=RH+5 
FORI=1T04:SX=(I-1) *5:SY 
=1:NUS=NC$ (I) :SUS=SCS (I 
) :GOSUB3850:GOSUB3910:N 
EXT 

GosuB1620 

CHARI, 2,10:PRINT" 

{33 SPACES}" 

CHAR, 2,10 
IECRTHENPRINT"{3}CRIB S 
RH; "FOR THE CO 
LSEPRINT"{7}CR 
IB SCORE IS";RH;"FOR "j 
BBS 

PRINT: PRINT" {10 SPACES) 
{RVS)HIT A KEY" 
GETKEYAS 

GOSUB3608 

RETURN 

PRINT" {HOME} {5 DOWN)" 
PRINT"{2 SPACES} {A}**** 
soRuAsARAEA TRY SALSEENE 
Rr ran RERRAREST 

PRINT™[2 SPACES }-AFTER 
{4 RIGHT) HANDS ComPUTE 
R=(8 RIGHT}-" 

PRINT"{2 SPACES} {Z}**** 
RRA AAHANAR EES RAR ERERR 
Rit RIIRELLLS 3) eer 
PRINT" {2 SPACES} {A}**#* 
AAAAAAAARARERD RAMARERE 
5 + CLAELELLE 
PRINT™[2 SPACES}-TOTAL 
{SPACEJMATCH PTS— 

{8 RIGHT}-(8 RIGHT}-" 


PRINT"{2 SPACES} {Q}**** 
PPTETETrereeere eters 




















W 
PRINT"{2 SPACES}-GAMES 
{SPACE}WON{6 SPACES} = 
{8 RIGHT}-(8 RIGHT}-" 
PRINT"{2 SPACES) €2: 
PARED EEAMAALES AA RE 
WETSARARRAE EK} eae 
NI"(2 SPACES) {A 
FARCRY RAR ATER 
ERFRARERRERC G3 Vee 
PRINT"{2 SPACES )-POINTS 


IN HAND =(8 RIGHT} = 














PRINT" {2 


WARN RRA 
+ 


Wi 
PRINT"{2 SPACES)-POINTS 
IN CRIB -{8 RIGHT)- 
{8 RIGHT}=" 
PRINT"{2 SPACES} {Q}**** 
ererreerreeieirsi 
LLL 1) 
PRINT"(2 SPACES }-POINTS 
PEGGED{2 SPACES]— 
{8 RIGHT}~(8 RIGHT} = 


PRINT"{2 SPACES) {Q}¥*** 
RARER RANA EA, EAHA AE REE RR 





LEAR 








Wi: 
PRINT"(2 SPACES}-SCORE 
{16 SPACES}-(8 RIGHT)- 
{8 RIGHT}-"— 
PRINT"(2 SPACES} {2} **** 
RARRRRAMERACES AERA BERR 
TETRA AARARE EXD 
RETURN 
REM DISPLAY SCORES 
RESTORE: PRINT" {CLR} ":SY 
=@:FORI=1T08:SX=(I-1)*4 
+3:GOSUB4070:NEXT 
PRINT" {HOME}{5 DOWN} 
{PUR}": PRINT 
PRINTTAB (8) ;HD;TAB (32-1 
NT (LEN (BBS) /2)) ;BBS 
PRINT: PRINT: PRINTTAB (22 
)7C2;TAB(31) ;PZ 
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BA 
KE 
DA 
RE 
EK 


BD 
GF 


QB 
Jc 
AE 
PE 
AX 
EF 
dQ 


PA 


FQ 
xR 


QM 
XS 


Pr 
Qu 
FR 


cq 


AQ 


JQ 
MB 


XS 


Bg 
cB 


cx 


PX 


Dx 


PE 
FD 
Go 
RM 
HB 
FM 
EE 
CR 
DE 


KH 
AP 


cx 
pp 





3250 
3260 
3276 
3288 
3298 


3300 
3310 


3320 
3330 
3340 
3356 
3360 
3378 
3380 
3398 


3400 
3416 


3426 
3430 


3440 
3450 
3468 


3478 


3480 


3490 
35088 


3516 


3526 
3536 


3540 
3550 


35668 


3570 
3586 
3590 
3606 
3610 
3628 
3630 
3648 
3658 


3668 
3678 


3680 
3690 


PRINT: PRINTTAB (22) ;GC;T 
P 





PRINT: PRINT: PRINTTAB (22 
) ;C1; TAB (31) ;H1 

PRINT: PRINTTAB (22) ;C2;T 
AB (31) ;H2 

PRINT: PRINTTAB (22) ;C3;T 
3 
RINTTAB (22) ;C4;T 
Ha 





GOSUB3810 
IFHD=1THENCHAR1, 16,7: PR 
Int" 

RETURN 

PL (I) =PL:NP$(I)=CN$(A): 
SPS (I) =CS$(A) :CP$ (I) =CC 
$(A) NP (I)=CN (A)? RETURN 
REM 

TE (TAL+PL) <1 STHENPR (A) = 
PR(A) -3:G0T03430 
IFPL=5THENPR (A) =PR (A)=1 
TE ( (PL+TAL) >27) AND (PL<> 
10) THENPR (A) =PR (A) +2:GO 
TO3460 

IE (PL+TAL)>27THENPR (A) = 
PR(A) +1:GOTO3460 

IF (PL+TAL<28) AND (PL>6)T. 
HENPR (A) *PR(A) +1:GOTO34 
68 

IF ( (PL#TAL) =21) THENPR (A 
) =PR (A) -2:GOTO3460 

TE ( (PL+TAL) =26) THENPR (A 
)=PR(A)-1 

GOTO3460 

IF ( (TAL+PL)=10) OR (PL=10 
) THENPR (A) =PR(A) ~1 

IF ((TAL+PL)"=5)OR (PL=5)T 
HENPR (A) =PR(A) -2 

IF ( (2*PL (1-1) +PL)=15)TH 
ENPR(A) =PR(A)~2 

DFF=ABS (CN(A)=-NP(I=-1)): 
AVR= (CN(A)+NP(I-1)) /22N 
X=INT (AVR+1?.5*DFF-3) 
TE ((CN(A) #NP (I=1) +1) OR ( 
CN(A)=NP(I-1)-1)) AND ((P 
L+TAL+NX) <32) THENPR (A) = 
PR(A)=3 

IF ((CN(A) =NP (I=1) +2) OR ( 
CN(A)=NP(I=1)=2)) AND ((P 
L+TAL+NX) <32) THENPR (A) = 
PR(A)=-2 
FORW=1T04: TF (W=A)OR (CN( 
W)=32) THEN3580 
CUD=ENV (CN (W)) 2 IP ((2*PL 
+CUD) =31) OR ( (2*PL+CUD)= 
15) ANDPL <> STHENPR (A) =PR 
(A) +2 

IF ( (CUD+16+PL)=31)0R ((C 
UD+10+PL)=15) ANDPL<>5TH 
ENPR (A) =PR(A)+3 
IFSG<>SFTHEN3580 

IE (CN(A)=CN (W) ) AND (PL<> 
5) THENPR (A) =PR(A) +4 

IF (PL+CUD)#=1 5THENPR (A)= 
PR(A) +2 

TF ((CN(A)+1L=CN(W) )OR (CN 
(A) =1=CN (W) ) )ANDCN (A) <> 
STHENPR (A) =PR (A) +3 

IF ( (CN (A) +2=CN (W) )OR(CN 
(A) =2=CN (W) ) ) ANDCN (A) <> 
STHENPR(A)=PR(A) +2 

IPL <STHENPR (A) =PR (A) +1 
NEXT 

RETURN 

TC=C4:TP=H4 

TC=TC+PC+CH 
IECRTHENTC=TC+RH 
TP=TP+PP+PH 
IECR=OTHENTP=TP+RH 
IETC>12G0RTP>120THENGOS, 
uB4178 

RETURN 

REM ROUTINE TO SEE IF C 
OMPUTER CAN PLAY 

Dusd 

FORE=1T04 
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SJ 


ce 


3708 


3718 
3720 
3738 
3748 


3756 
3768 
3778 


3780 
3798 
3808 
3810 
3826 


3836 
3840 
3850 
3860 
3870 


3888 


3890 


3900 
3916 
3920 


3930 


3940 


3950 
3968 
3978 


3986 
3990 
4000 


4010 
4020 
4030 


4040 
4050 


4060 
4070 
4080 
4090 


4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 


4198 
4200 
4216 
4220 


4236 
4248 


4258 


4268 


IF (CN (E) =32) OR (TAL+ENV ( 
CN(E))>31)THEN3720 

Du=1 

NEXT 

RETURN 

REM ROUTINE TO SEE IF P 
ERSON CAN PLAY 

Du=0 

FORE=1T04 

IF (PN (E)=32) OR (TAL +ENV ( 
PN (E))>31)THEN3790 

Du=1 

NEXT 

RETURN 

FORWE=1TOI 
S¥=8:SX=(WE~-1) *4:GOSUB3 
960 

NEXT 

RETURN 

REM DRAW CARD OUTLINE 
PRINT" {BLU}" 

CHAR1, SX, S¥:PRINT"U**4T 


FORHI=1T05:CHAR1, SX, S¥+ 
HI:PRINT"={3 SPACES}-": 
NEXT 
CHAR1, SX, SY¥+6:PRINT"J** 
*K" 





RETURN 
REM DRAW NUMBER & SUIT 
CHAR1,SX+1,SY¥+1: PRINTNU 


$ 
CHARL, SX+2, S¥+3: PRINTSU 
$ 


CHARL, SX+5-LEN (NUS) ,SY+ 
5: PRINTNUS 

RETURN 

REM DRAW CARD BACKS 
PRINT" {RED}":FORHI=1T05 
:CHARL, SX+1,SY+HI: PRINT 
"$3 +}":NEXT 

RETURN 

REM BLANK OUT CARD 
FORHI=@T06:CHAR1,SX,SY+ 
HI: PRINT"{5 SPACES)":NE 


XT 

RETURN 

REM NUMBER CARDS 
PRINT"{1}":CHAR1,SX+1,S 
¥+7: PRINTNM 

RETURN 

CHAR1, SX+2,SY+7: PRINT" 
{SPACE}" 

RETURN 

REM OPENING DISPLAY 
PRINTCHRS (148+1) 
FORHI=1T05: READNUS:CHAR 
1,5X+1, SY+HI: PRINTCHRS ( 
18)+NUS: NEXT 

RETURN 
Cl=C1+CH:H1=H1+PH 
IECRTHENC2=C2+RH 
IECR=GTHENH 2=H2+RH 
C3=C3+PC:H3=H3+PP 
C42C3+C2+C1:H4=H3+H2+H1 
RETURN 

GosuB4110 
IPH4<61THENCZ=Cz+ (3* (12 
1-H4)) :GC=GC+3:G0T04238 
IFH4 <91THENCZ=CZ+ (24 (12 
1-H4)) :GC=GC+2:G0T04230 
IFC4<61THENPZ=PZ+ (3* (12 
1-C4)) :GP=GP+3:GOT04236 
TEC4<91THENPZ=PZ+ (2* (12 
1-C4)) :GP=GP+2:GOT04230 
TPC4>120THENCZ=CZ+121-H 
4:GC=GC+1:ELSEPZ=PZ+121 
~C4:GP=GP+1 

GosuB 3208 
CHAR1, G, 23: PRINT" {RED} 
{5 SPACES}GAME OVER - " 





IFC4>120THENPRINT"COMPU 
TER HAS WON.":SLEEP5:GO 
704286 

PRINTBBS;" HAS WONII1": 





SLEEPS 

TF (H4<61) OR (C4<61) THENC 
HARL, @, 23: PRINT" 

{5 SPACES}DOUBLE SKUNK 
{SPACE}- TRIPLE POINTS 
{6 SPACES)";SLEEP5:GOTO 
4290 


JQ 4278 


RK 4280 IF (H4¢91)0R(C4<91) THENC 
HAR1,@,23: PRINT" 
{8 SPACES}SKUNK - DOUBL 
E POINTS{1@ SPACES}":SL 
EEPS 
CHAR1, 6,23: PRINT" 
{8 SPACES}ANOTHER GAME? 
{2 SPACES} (Y/N) 
{11 SPACES)" 
GETKEYAS 
IFAS="¥ "THENOV=1: RETURN 
IFAS="N"THENEND 
GoT04300 
IFER=3 OTHENRESUME: ELSEP 
RINTERRS (ER);" ERROR IN 
LINE";EL 
DATA"E {*}"," {RIGHT} 
{SPACE}"," {2 RIGHT}"," 
(RIGHT) ","{OFP} {*} 
{rvs} {OFF}£"," 
{2 SPACES) {*}"," 
{RIGHT} {OFE) £' 
{2 SPACES) ¢*}", 
{RIGHT} "," {RIGHT} "," 
{3 SPACES}","{RIGHT} 
{RIGHT}","{RIGHT) 
{RIGHT} 
"{3 SPACES}"," 
{2 SPACES) {*}"," 
{RIGHT} {OFF} £"," 
{2 SPACES} {*}"," 
{RIGHT} ","{2 SPACES} 
{OFF} £" 
ME 4360 DATA"(2 SPACES){*}"," 
{RIGHT} {OFF} £"," 
{2 SPACES} {*}"," 
{RIGHT} ","(2 SPACES) 
(orr}en,"& cep", " 


KG 4298 











{RIGHT} ","({3 SPACES}", 
“ {RIGHT} {RIGHT} " 
t*p"," (2 RIGHT)", 





="," (rigur) "," 
{OFF} {*}{RVS} (OFF}£", 
"{3 SPACES}"," 


{2 RIGHT}","{2 SPACES} 
{RIGHT})"," {2 RIGHT}"," 
{3 SPACES}" 


Zoom 


See instructions in article on page 
68 before typing in. 


Program 1: Zoom—64 Version 


C000:4C B6 G9 AD 82 DD 09 
C008:63 8D 
CO1d:FC 
co18:8D 
C@20:a9 
C028:AD 
C@3G:AD 
C038: 00 
C040:18 
C048:11 





CGAG:67 8D 5E G3 AE 60 03 AD AB 
CGA8:05 BD 61 G3 8D 62 G3 EB C6 
C0BG:06 FG 15 AD 61 G3 18 69 9C 














cope: 40 
CCG: 03 
COC8:8E 
CODG:03 
cope: 64 





COEB: 03 
COFG:90 
COF8:18 
C106:20 
C188:AD 
C110:A9 
C118:03 
C126:F0 
C128: 66 
C130363 
C138:4D 





C148:00 
C150:60 
C158:5D 
C160:03 
c168:c9 
C176:03 
C178: 8D 
C180:FO 
C188:A9 
C190:60 
C198 :5B 
C1A6:03 
C1A8: 26 
C1BG:A9 
C1B8:co 
clca:ca 
clc8:8p 
C1b0:AD 
C1D8:66 
C1E0:0D 
C1EB:C2 
C1EG:4C 
C1F8:72 
C206:69 
C208: 25 
C216:C1l 
218:09 
C226:Ccl 
C228: 20 
€230:C9 
C238:3E 
C240:20 
C248: 8F 
C25G:A2 
C258:D0 
C260:85 
C268:8D 






C278:A5 
C280:A9 
C288:FD 
C296:EB 
C2983 04 





C2A8:04 
C2B0: 4c 
C288: 00 
C2ce:18 
C2c8:a9 
C206:69 
C2D8:E8 
C2E0:A5 
C2E8: 02 
C2PG:62 
C2P8:8D 
300:18 
C308:FC 
C310:8D 
318:02 
C326:85 
328:85 
¢336:8D 
©338:91 
C340:86 
C348:0D 
C350:A5 
C358:AD 





C368:28 
C368:CD Ad 
C378:A9 
378:C4 
C380:04 
C388:29 
C390:C4 
C398: 26 
C3AG:D0 
C3A8:4C 
C3B0:26 






C3C8:7B 
C3C8:C4 


C3D0:20 
C3D8:C3 





C3F8: 6B 
C400:03 
C4083A5 
C416:02 
C418:69 
C426:5C 
C428:18 
C430:FC 
C438:FB 
C440: 20 
C448:01 
C450:FC 
C458: 20 
C46G:A9 
C468:EB 
C470: 28 
C4783A5 





C488:D0 
C490204 
498341 
40:52 
C4A8:4F 
C4B0:00 
C4B8:FB 
c4ce:c4 
c4ce: 07 
C4D0307 
C4D8:BA 
C4E0:07 
C4E8:A9 
C4PO:A0 
C4F8:A9 
C500:60 
C508: 0E 
C510:20 
C518: 26 





C528: 07 
C530:A0 
C538:C8 
C54G:A9 
C548:FF 
C550:20 
C558sA2 
C560: 61 20 
C568: 28 CO 68 BO BO 


Program 2: Zoom—128 Version 


1300:4c 14 08 Ad D8 SF 
1308:4c aL 4c 
1310259 Ag 
1318:08 
1320:00 
1328:91 
1330:F4 
1338:08 
13403AE 
1348248 
1350:18 
1358: 4B 
1360:8D 
1368:8D 
1370: 8D 
1378:F6 
1380: 8D 





1388:EE 
1390351 
1398:18 
13A0:17 





13B0:18 
13B8:03 
13C0:6D 
13¢8:18 
13D0:4A 





13E@:A9 
1388:05 
13F6:17 
13F 8:17 
1400:54 
1408200 
1410:B1 
1418:AD 
1420:17 
1428: 60 
1430:B8 
1438360 
1440:4a 
1448: 06 
1450: 00 
1458:AD 
1466:17 
1468: 4c 
1470390 


1480:A9 
1488:A9 
1490: 4c 
1498300 
1400: 20 





14B0:C9 
14B8:FS 
14C6:14 
148: 20 
14D6:14 
14D8: 20 
14B6:08 
14E8:4C 
14F0:18 
14F8:0C 
1500:D0 
1508314 
1510:E8 
1518:00 
1526:17 
1528: 21 
1530:FE 
1538: 60 
1540:91 
1548:B1 
1550:FO 
1558215 
1560:26 
1568:15 
1578:CcO 
1578:17 
1580: 608 
1588:18 
1590:FC 
1598: 00 
15A0:B0 
15A8:57 
15B0:00 
15BB:FB 
15C0:£6 
15C8:FD 
1506:57 
15D8:F8 
15£0:22 
1558: 80 
15F0:17 
15F8:29 
1600:FB 
1608:17 
1616:15 
1618: 20 
1620:EB 
1628:15 
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1636:15 





1750:60 
1758:00 


BB Barrage 


See instructions in article on page 
30 before typing in. 


Program 1: BB Barrage 





COCG:81 
COCB:E4 
CGD6:CA 





COEG:7C 
COEB:56 
COFG:BD 
COF8:DC 
C106:C7 
c108:C7 
C116:1b 
C1l8:24 
C126:20 
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C168:D0 
C170:8D 


C1B8:D2 
C1CO:A2 
C1c8:74 
¢1D6:76 
clp8: 


C1PB8:PF 
C200:12 
C208:78 
C210:9D 
C218:01 
C220:B9 
C228:79 
©230:79 
C238:A2 
C240:DE 
C248:7C 
C250:A9 
C258:9D 
C260:60 
C268:90 
C270:79 











C280:28 
C288:F8 
€290:c2 
C298: 8D 
C2AG:AD 
C2A8:CB 





C2B8:9D 
C2C6: 8D 
C2cB:A9 
C2p6:cB 
C28: 8D 
C2EG:C9 
C2E8:85 
C2F0:19 
C2F8:AD 
C380:DD 
C308: 8A 
C316:CE 
C318:316 
C326:18 
328:18 
C330:79 
338:D0 
346:20 
C348:81 
C358:C3 
358: 9D 
C366:9D 
C368: 9D 
C370:4C 
C378:9D 
C386:78 
C388:7B 
C390:00 
C398:8E 
C3AG:C3 
C3A8:12 
C3B0:79 
C3B8:DE 
C3C8:17 
c3c8:24 





¢300:7B 
308: 7D 
C3E0:BD 
C3E8:10 
C3F0:7B 
C3F8:08 
C406:75 
408369 
C410:71 
C418:BD 
C420:c9 
C428:7B 
C430:08 
C438:75 
C440369 
C4483 71 
C456:BD 
C458: 3D 
C4603A5 
468309 
C470: 7E 
C478:80 
C480: 31 





C498:FE 
C4A0:83 
C4a8rFD 
C4BG: 9D 
C4BB: 0A, 
C4CO: 4A 
Cac: 84 
C4D6:BD 
C4D8:65 
C4E0: 0A 
C4E83 0A 
C4PO:B9 
C4P8:EB 
C500300 
C508: 91 
C510:60 
518:79 





C528:79 
C530:C9 
C538:79 
C540:38 
C548:8D 





C558:0A 
C560:FO 
C568:79 
C570:7A 
C578:B9 
C580:7E 
C588:20 
c590:1C 
C598:C9 
C5AG: 02 
C5ABIFO 
C5BG: 61 





CSC: 7C 
c5c8: 9D 
C5D0:7B 
C5D8: 86 
C5EG: 9D 
C5E8:7E 
C5FG:01 
C5SF8:F4 
C60G:FO 
C608: 60 
C610:79 
C618:B0 
C626: 4A 
C628:79 
C630:19 
C638:8E 
C640:79 
C648:18 
C650:79 
C658:69 
C660: 0D 
C668:99 
C670: 86 








C678:CO 
C680: 86 
C688:7F 
C698:09 
c698:18 
C6AG:00 
C6AB: 60 
C6B0:99 
C6BB: 30 
C6CG: 81 
C6CB8:B9 
C6D8:99 
C6D8:30 
C6EG:A8 
C6E8:99 
C6FO:EE 
C6F8:05 
C760: 2D 
C708:60 
C710: 6F 
C718:7D 
C720:5E 
C728:9D 
C730:7B 
C738:07 
C740:7B 
C748: 20 
C750:C3 
C758: 26 
C760:BD 
C768:FD 
C770:D4 
C778:85 
C780:29 
C788:D8 
C790:4C 
C798: 6F 
C7AG:02 
C7A8:C3 
C7BO:A9 
C7B8:C7 
C7C@:FD 
C7C8:00 
C700: 9D 
C7D8:C2 
C7EG:A5 
C7E8:00 
C7EQ:CB 
C7E8: 00 
C8G0:FB 
C808:69 
C81G:FE 
C818:A9 
C820:79 
C828:FO 
C830:1C 
C838:69 
C84G:E0 
848:C8 
C856:AD 
C858:71 
C860:0B 
C868:C8 
C870:66 
C878:E6 
C886:04 
C888: 62 
C896:00 
C898:65 
CB8AG:85 
CBA8:C9 









C8BB: 20 
C8CG:07 
c8C8: 8c 








¢926:8D 
c928:49 


C968:88 
C970: 80 
C978:80 
c980:20 





C988: 2A 





C998:3E 


C9AG: 03 
C9ABI 10 
C9BG:40 
C9B8:3D 
c9cd:38 
c9c8:31 
C9DG:29 
Cope: 1E 
C9EG:13 
C9E8:85 
C9FG:78 
COF8:BB 
CAGG:FB 
CAG8:DB 
CA1G:D9 
CA18:DA 
CA20:0F 
CA28: 00 
CA30:FC 
CA38: OF 
CA40:24 
CA48:50 
CA58:00 
CA58: 98 
CA6G:A2 
CA68: 08 
CA70:00 
CA78:9F 
CA8G:AB 
CA8B:B5 
CA9G:CO 
CA9B:CO 
CAAG:C9 
CAAB:D4 
CABG:E8 
CABB: 86 
CAcG: 08 
CAC8: 08 
CAD@:18 
CAD8:CO 
CAEG: 63 
CAEB: 00 
CAP G: 62 
CAF8: OE 
CBGG:05 
CBO8:FB 
CB1G:FB 
CB18: 39 


09 
FF 


Program 2: BB Barrage Screen 
Editor 
HE 16 REM COPYRIGHT 1988 COMPU 


IX 
FG 
BE 


MB 


Gs 


QD 


20 
30 
40 


st 


68 
70 


TE! PUBLICATIONS, INC. - 
ALL RIGHTS RESERVED 
IFA=@THENA=1:LOAD"BB",8, 
1 


POKES1, @: POKES2, 32: POKES. 
5,0: POKES6, 32:CLR 
PRINT" {CLR} (2 SPACES} COP 
YRIGHT 1988 COMPUTE! PUB 
+1 INC 
PRINTTAB(11)"ALL RIGHTS 
{SPACE} RESERVED" :FORI=1T 
01500:NEXT 

DIMC8 (255) ,C2(24) ,X(15), 
¥(15) 
FORI=4T016:READC2(I) :NEX 











Mc 


86 


96 


109 
11¢ 


od 

DATAL,1,1,1,1,1,37475,6% 

7,8,9 

FORI=G7T063: POKE960+I ,0:N 

EXT 
PORI=0T023STEP3:READA: P 
OKE960+1,A:NEXT 
DATA255,129,129,129,129 
129,129,255 
FORT=G7T05:READA:H(I)=A: 
C$ (A+128)=1: NEXT:C% (32) 
=1 
DATA32,81,64,93,77,78 
FORI=48T053:C8 (I) =2:NEX 





T 
X(5)=1:X(6)=12X(7)=12X( 
9) ==1:X (10) =-1:X (11) =-1 
¥(18)=-1:¥(14)=-1:¥(6)= 
W1:¥(9)=1:¥ (13)=1:¥(5)= 
1 
US=CHRS (145) :DS=CHRS (17 
) RS=CHRS (29) :L$=CHRS (1 
57) :CS=CHRS (147) +DS+DS 
C8 (145) =-14:C8 (17) =-13: 
C8 (29)=-7:C8% (157) =-11 
HS=CHRS (159) +CHRS (19) +D 
$+DS+DS+D$+D$ 
FORI=1T05:READA:C%(A)=1 
2HS=HS+CHRS (A) +DS+L$: NE 
XT 

DATA289,192, 221,205,206 
FORI=3T010:READAS:C% (AS 
C(AS)) =I: HS=HS+AS+DS+LS 
NEXT 

DATAP, S,L,C,M,0,H,E 
C%(13)=11 
X=02¥=4:CH=H (1) :US=5195 





7 

3*56320:V=53248: POKEV+2 
1,1: POKEV+39, 7: POKEV+23 
7 @: POKEV+29,@: POKE2040, 
15 

GOSUB560 
POKEV+1,¥*8+50:T=X*8+24 
+ IFT>255THENPOKEV+16,1: 
GOTO300 

POKEV+16,0 

POKEV, 255ANDT 
A=@:T=PEEK (J) :F=16ANDT: 
JY=15ANDT 

IFF=16THEN380 
IFXTHEN360 

A=C2(¥) : IFA=1THENAS=CHR 
$(H(Y-4)) 

GOTO 430 
S=Y*40+X+1024:T=CH: IFPE 
EK (S) *CHTHENT=32 
POKES , T: IFMFTHENGOSUB58 


G 

DX=X (JY) :DY=¥ (JY): TEDXO 
RDYTHEN5S 30, 

GETAS. 

A=C% (ASC (AS+"@")) :TFA=G 
THEN310 

IFACGTHENDX=X (=A) :DY=Y ( 
-A) :GOTO530 
IFA>2THENPOKE53269,0 
ONAGOTO45G, 500,650,660, 
760 ,82,840,850,1156,13 
36,1346 

GOTO310 
S=X+¥*40+1024:CH=ASC(AS 
)-128:T=CH: IFT<GTHENT=T 
+128:CH=T 

IFX=OTHEN310 

IE PEEK (S) =CHTHENT=32 
POKES, T: IFMFTHENGOSUB5S8 


a 

GoTo314 

S=X+¥*40+1024 :CH=H (VAL ( 
AS) ) 3 IFX=OTHEN310 

T=CH: POKES, T: IFMFTHENGO 
SUB580 
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FC 520 
SG 536 


FK 549 
MI 550 
CK 568 
cc 576 


DH 580 
SX 590 


KQ 608 
KB 610 
PX 620 


RQ 633 


HS 640 
IM 659 
CE 660 
DR 670 


PB 68) 


Qx 690 


GQ 700 
gb 710 
BM 720 
DB 730 
DR 740 
gD 750 
JK 760 


KC 770 


BP 780 
ES 790 
AM 800 
RA 810 
XF 820 
DI 8368 
DH 840 


Qs 856 


BH 860 


SH 870 
AE 880 


AB 898 
KD 960 


QA 910 


HX 920 


CB 930 


sQ 946 


SP 950 





GOTO310 

Y=Y+DY:X=X+DX: IFY<@ORY> 
24THENY=Y-DY 

IEX>3 8ORX<GTHENX=X-DX 
GoTO28a 
POKE53281,15:PRINTCS: PO 
KE53281,@:PRINTHS:SYS49 
161 

POKE1584,13+MF*128: POKE 
53269,1:RETURN 
X%1=39-X:¥1=24-¥ 
S1=X1+¥1*40+1024: POKES1 
iT 
IET=77THENT=78:GOTO620 
IET=78THENT=77 
S1=X1+¥*40+1024: POKES1, 


T 
Sl=X+¥1°40+1024:POKES1, 
T 


RETURN 
SY¥S49155:CLR:GOTO60 
S¥S49158:PRINTCS"SAVE S 
CREEN TO DISK" 
EA=PEEK (253) +PEEK (254) * 
256+1:SA=US+13 

HE=INT (EA/256) : LE=EA-HE 
*256:HS=INT (SA/256) :LS= 
SA-HS*256 

INPUT"ENTER FILENAME "; 
F$: IFFS=""THENPRINT" ABO 
RTED" :GOTO746 
OPEN1,8,1,F$:POKE193,LS 
:POKE194, HS 
POKE174, LE: POKEL75, HE 
S¥S62957:CLOSEL 

PRINT" SAVE COMPLETE" 
FORT=1T0999:NEXT 
GOSUB560: GOTO310 
PRINTCS"LOAD SCREEN FRO 
M DISK" 

INPUT"ENTER FILENAME "; 
F§: IFFS=""THENPRINT" ABO 
RTED" :GOTO810 
OPEN1,8,0,F$: POKE185, 1: 
POKE786,0 
SY865493:CLOSEL 
PRINT"LOAD COMPLETE" 
GOSUB560:GoTO310 
POKE53281, 15: PRINTCSHS: 
POKE53281,0:X=G:¥=4:CH= 
H(1) 

POKE1584, 13+MF*128:GOTO 
280 


MP=1-MF: POKE1584 ,13+ME* 
128:GOTO310 

SYS 49158: PRINTCS"{HOME} 
{RVS} OPTIONS AND COLOR 
S (OFF}" 

MS="{DOWN} BACKGROUND" :T 
=0:MN=@:MX=15 
GOSUB1110:BA=T 
MS="BORDER" :T=11:GOSUB1 
110: POKEUS+7,T 
MS="PUCK COLOR": T=14:GO 
SUB1110:POKEUS +8, T 
MS="BB COLOR" :T=15:GOSU 
B1110: POKEUS+6,T*16+BA 
MS="RIGHT GUN COLOR": T= 
1:GOSUB1116: POKEUS+9,T* 
16+BA 

MS="LEFT GUN COLOR" :T=1 
:GOSUB1110: POKEUS+5,T*1 








OALS NEEDED TO WIN 
T=7:MN=1:GOSUB1110: PO 
KEUS+2,T 

PRINT"HOW MANY SECONDS 
{SPACE}UNTIL DESTRUCT M 








M$="(-1 FOR NO DESTRUCT 
)":T=60 :MN=-1 :MX=906:GO 
suB1110 





78 COMPUTE!'s Gazette August 1988 








XM 


PE 


CE 


MD 
PQ 
GJ 


PP 
JE 


GR 


BX 
EP 
FQ 
FS 


SJ 


RD 


960 IF T<OTHENPOKEUS+3,255:G 
oTo98a 

970 SE=T*60:T1=INT (SE/256) = 
POKEUS+3,T1:T2=256-SE+T 
1*256: POKEUS+4 , T2 

980 MS="FRICTION: 1=0N, 6=0 

=1:MN=6:MX=1:GOSUB 
1110: POKEUS+10,T 

990 PRINT"CHOOSE @ FOR SHAR 
ED BB'S" 

10600 MS="{7 SPACES}1 FOR PO 
SSESSIVE":T=G:GOSUB111 
@: POKEUS+12,T 

1616 PRINT"MAXIMUM NUMBER O 
F BB'S IN PLAY" 

1020 MS="(3 SPACES}":T=10@: 
MN=10:MX=250:GOSUB1110 
: POKEUS-1,7+3 

1030 MS="RAPID FIRE DELAY": 
MN=1:MX=100:T=7:GOSUBL 
116: POKEUS+11,7 

1046 PRINT: PRINT" {DOWN} SAVE 
NEW VERSION TO DISK ( 
¥/N) 2" 

1050 GETA$:IFAS="N"THEN1100 

1060 IFAS<>"¥"THEN1O50 

1070 FORT=US+13T053248 

1080 IPPEEK(I)=255THENSA=49 
152:EA=1+1:1=53248 

1090 NEXT:GOTO686 

1160 GOSUB560:GOT0310 

1114 PRINTM$"{3 SPACES}"T; 

1120 FORI=GTOLEN (STRS(T)) +1 
:PRINTL$;:NEXT: INPUTU 

1136 [FUSMNORU>MXTHENPRINTU 
$7: PRINTMS"("MN"="MX") 
{3 SPACES)"T;:GOT01120 

1140 T=U:RETURN 

1156 S¥S49158:POKEV+21,0:PR 
INTC$TAB(11) "{RVS} COM 
MAND SUMMARY" 

1166 PRINT:PRINT" THE FIRST 
FIVE MENU ITEMS CHANG 
E THE" 

1176 PRINT" DEFLECTOR TYPE. 
" 














1180 PRINT:PRINT" THE LETTE 
R COMMANDS ARE: (DOWN}" 

1190 PRINT" (2 SPACES}P - PL 
AY WITH CURRENT SETTIN 
cs" 

1200 PRINT"(2 SPACES}S - SA 
VE A SCREEN TO DISK" 

1210 PRINT"({2 SPACES}L - LO 
AD A SCREEN FROM DISK" 

122@ PRINT"(2 SPACES}C - CL 
EAR SCREEN OF ANY BARR 
IERS" 

1236 PRINT"(2 SPACES}M - TO 
GGLE. SYMMETRY MODE" 

1240 PRINT"(2 SPACES}O - CH 
OOSE OPTIONS" 

1250 PRINT"(2 SPACES}H - SH 
OW HELP SCREEN" 

1260 PRINT"{2 SPACES}E - EX 
IT THE PROGRAM" 

1270 PRINT: PRINT" COMMANDS 
CAN BE INVOKED BY PRE 
SSING" 

1280 PRINT" THAT KEY, OR BY 
MOVING THE CURSOR OVE 
RM 

1296 PRINT" AND PRESSING TH 
E FIRE BUTTON." 

1300 PRINT:PRINT TAB(8)" 
{RVS} SPACE BAR TO CON 
TINUE " 

1310 GETAS:IFA$<>" "THEN131 
g 


1326 Goro260 
1330 POKE53269,@: PRINTCHRS ( 
147) :END 








GR 1340 IPX=0THENF=0:GOTO340 
HB 1358 GOTO310 


Program 3: Sample Screen 


See instructions in article on page 
30 before typing in. 


CBG2:FE @1 FD 20 FE G1 FD 12 25 
CBOA:FB FB FB FB FB FB 17 FA D6 
B12:FA FA FA FA FA @4 FB G6 DA 
CB1A:FB G4 FA FA FA FA FA FA 74 
(B22:GC FA FA FA FA FA FA @3 4A 
CB2A:FB @2 FB G2 FB G2 FB G3 C2 
CB32:FA FA FA FA FA FA 14 FB FC 
FB 04 FB 62 FB 1B FB 44 
CB42:02 FB G6 FB 02 FB 13 FB 7C 
CB4A:FB FB FB FB FB FB @2 FB ED 
B52:08 FB G2 FB FB FB FB FB BO 
CB5A:FB FB 14 FB GA FB 16 FC 9A 
C€B62:16 FC 12 FC 12 FC 16 FC 04 
CB6A:GE FC 1A FC GA FC 44 FC 25 
CB72:GA FC 1A FC GE FC 16 FC EE 
CB7A:12 FC 12 FC 16 FC 16 FB 39 
CB82:6A EB 14 FB FB FB FB FB 24 
CBBA:FB FB G2 FB 08 FB 02 FB 4F 
CB92:FB EB FB FB FB FB 13 FB 58 
CB9A:02 FB G6 FB 02 FB 1B FB E4 
CBA2:@2 FB 04 FB 62 FB 14 FA 9D 
CBAA:FA FA FA FA FA @3 FB @2 6B 
CBB2:FB 02 FB G2 FB G3 FA FA 45 
CBBA:FA FA FA FA GC FA FA FA DA 
FA FA 04 FB G6 FB 04 2A 
FA FA FA FA FA 17 FB 9B 
FB FB FB FB 12 FD @1 CB 
20 FD @1 FE FF 00 66 Cl 


Shell Booter 


Article on page 61. 








HE 16 REM COPYRIGHT 1988 COMPU 
TE! PUBLICATIONS, INC. - 
ALL RIGHTS RESERVED 

EM 20 PRINT"{CLR}({3 SPACES})COP 
YRIGHT 1988 COMPUTE! PUB 
+, INC.":PRINTTAB (11) "AL 
L RIGHTS RESERVED" 

MG 30 FORI=3072T03252:READA: PO 
KEI ,A:X=X+A:NEXT 

DR 40 IFX<>16815THENPRINT" ERRO 
R IN DATA STATEMENTS.":S 
TOP 

EX 50 BSAVE"SHELL.BOOTER" ,D0,U 
8,BG,P3072 TO P3252 

DE 69 DATA 169,8,170,160,1,32, 


186,255 

GM 78 DATA 169,9,162,154,160,1 
2,32,189 

XB 80 DATA 255,169,0,170,32,10 
4,255,169 

EP 90 DATA @,32,213,255,176,94 
169,163 

XK 100 DATA 133,45,169,12,133, 
46,169,15 

GS 11 DATA 133,47,169,45,162, 
1,166,17 

PX 120 DATA 32,101,255,160,3,1 
69,0,141 

DK 130 DATA G,91,136,16,250,16 
9,1,133 

XR 140 DATA 45,169,91,133,46,1 
62,3,142 

DS 154 DATA 16,18,141,17,18,16 
9,147,32 

GS 166 DATA 216,255,24,162,1,1 
66,29, 36 

JD 170 DATA 215,48,2,160,9,32, 
240,255 

HM 180 DATA 32,125,255,68,46,7 
9,46,83 








EM 199 DATA 46,32,83,72,69,76, 
76,32 

QX 200 DATA 79,78,32,78,45,49, 
32,75 

SA 210 DATA 69,89,0,96,169,11, 
133,208 

JK 220 DATA 160,6,185,142,12,1 
53,74,3 

MX 236 DATA 200,192,11, 208,245 
196,80, 82 

KQ 240 DATA 73,78,84,32,68,83, 
36,13 

FE 256 DATA G,0,68,79,83,32,83 
72 


’ 

GJ 260 DATA 69,76,76,66,65,78, 
75, 

CG 270 DATA 49,50,58,83,89,83, 


32,54 
GC 280 DATA 54,53,54,13,0,0,0, 
6 


3-D Sprites 
See instructions in article on page 
64 before typing in. 


Program 1: 3-D Sprites— 
Machine Language 


4000:A2 66 AG 40 98 E4 33 ES BE 
4008:34 BO 04 86 33 84 34 98 64 
4010:E4 37 £5 38 BG 04 86 37 EA 
4018:84 38 A9 99 80 FE FF A9 C9 
4020:49 80 FF FF A9 45 CD 63 Ad 
4028:5B £6 09 8D 03 SB 20 23 75 
4030345 





4040:03 
4048:8D FE C7 A9 G1 8D FF C7 E8 
4050:A9 45 8D G4 G3 AO 41 8D B7 
4058:05 83 A9 G5 8D 86 G3 AD DS 
4060:42 






4070:A0 
4078:20 2A 2A 2A 2A 26 20 28 AD 
4080:28 20 20 20 20 26 20 33 14 
4088:44 20 53 58 52 49 54 45 48 
4090:53 20 20 28 20 26 26 20 AA 
4098:20 20 28 2A 2A 2A 2A 26 46 
40A0:20 26 20 20 20 20 26 20 21 
40A8:43 4F 58 59 52 49 47 48 CC 





4060:52 49 47 48 54 53 26 52 CC 
4068:45 53 45 52 56 45 44 20 1F 
40F0:008 AI 15 8D 18 63 AD 41 BB 
40P8:8D 19 03 G8 78 AO 62 8D 24 
4100:14 03 A9 4F 8D 15 63 28 66 
4108:60 8A 48 36 03 20 7B 4F 48 
4110:68 AA 4C 8B E3 48 BA 48 51 
4118:98 48 A5 G1 8D 41 41 G9 BA 
4120:07 85 01 A9 7F 8D GD DD 6C 
4128:AC OD DD 30 13 20 @2 FD 1E 
4130:D8 G3 6C 62 80 20 BC F6 7E 
4138:20 El FF DG G3 4C 69 FE 6B 
4140:A9 OG 4C F6 49 AG 7A AG OB 
4148:04 84 GF BD Gd G2 10 G7 DA 
4150:C9 FF FO 3B E8 DO F4 C9 F7 
4158:20 FO 37 85 G8 C9 22 FO G3 
4160:56 24 OF 70 20 C9 3F DO OF 
4168:04 AI 99 DB 25 C9 30 98 DB 
4170:04 C9 3C 98 1D 84 71 AG 76 
4178:00 84 GB 88 86 7A CA CB 82 
4180:E8 BD G@ 02 38 F9 9E AG BE 
4188:F6 F5 C9 88 DG 36 G5 GB IE 
4190:A4 71 £8 C8 99 FB G1 B9 E3 
4198:FB G1 FO 38 38 E9 3A FO CO 
41A0:04 C9 49 DO G2 85 GF 38 4A 





41A8:E9 
41B0:02 
41B8:99 
41CO:E6 
41C8:B9 
4108:90 
4108:78 
41E0:CA 
41£8:3A 


41F8:CB8 
4206:42 
4208:F3 
4216:30 
4218:A7 
4220:FF 
4228:10 
4230:38 
4238:EF 
4240:4c 
4248:C5 
4250349 
4258:41 
4260:52 
4268:45 
4276:08 
4278:45 
4280:43 
4288:00 
4298:CC 
4298359 
42A0:B9 
42A8:79 
42B0:42 
4288344 
42C0:4F 
4208: 43 
4200: 20 
42D8:A2 
42E0:6C 
42E8:C6 
42FG:A2 
42F8:BA 
4300:FB 
4308:02 
4310:D8 
4318:A9 
4320:20 
4328243 
4330:20 
4338:B1 
4340243 
4348:85 
4350:EF 
4358:03 
4360:9A 
4368:20 
4370:E2 
4378: 00 
4380:00 
4388:20 
4390:8D 
4398:ED 
43A0:BB 
4348360 
43B0:60 





43C0:00 
43c8:Fd 
43D0:A5 
43D83A5 
4350320 
4368:43 
43F0:86 
43P8:45 
4400361 
4408:20 
4410:D0 





4420:A5 
4428:91 
4430:85 
4438:85 
4440:BE 
4448263 









4450:04 @@ 91 66 88 16 F8 20 Ad 
4458:DC 45 86 G2 85 03 AG GO GB 
4460:98 91 62 4c 72 45 85 G6 64 
4468:60 4C 5C 43 20 A2 43 48 4B 
4470:20 Bl 43 D@ F4 85 CA 20 SE 
4478:97 43 85 Bl 20 A9 43 85 1D 





4488:B1 43 61 
4490:8D F9 C7 206 Bl 43 85 AB AT 
4498:86 A9 20 Bl 43 85 AA 86 F9 
44AG:AB 20 B1 43 38 C3 B5 A5 B2 
44A8:86 BG 68 C5 06 FO GF 8D Ad 





4578:FD 45 A2 00 A9 GO 85 66 66 
4580:BD 





45E0:C8 Bl 60 GA 90 G3 E6 63 AA 
45E8:18 71 60 90 @3 E6 63 18 83 
45FG:65 64 85 62 AA A5 63 65 36 
45F8:65 85 63 28 60 AS 68 18 FB 
4600:69 G3 8D 99 45 85 64 AS FB 
4698:61 69 80 8D 9D 45 85 65 EA 
4610:A@ 08 84 63 Bl 60 FO 10 B4 
4618:0A 90 03 £6 65 18 65 64 57 
4620:90 





4630:85 

4638:03 AI 49 8D 15 83 58 AD CS 
4640:20 DO 8D FD C7 A9 G1 8D 17 
4648:20 DO AY 8B BD BA G2 AD 9A 
4650:C8 8D FC C7 20 Al 4F 20 07 





4660:8C 64 46 AD OO 30 20 A2 C2 
4668:03 89 7B 46 95 F7 88 CA 21 
4670:10 £7 8C 64 46 20 £7 54 AD 
4678:4C 63 46 30 84 30 25 30 2F 
4680:84 GF 84 30 84 11 A3 26 BE 
4688:4A 4F A9 G6 8D 10 DG 8D 1F 
4690:27 DG AQ G1 BD 15 DG 20 aC 
4698:9C 4A 20 FF 48 85 BF 85 67 
46A0:B5 AB 99 GG 83 99 OG 85 6D 
46A8:99 G0 87 C8 DO F4 20 £4 FE 
46BG:FF A2 14 DD DB 46 FO 11 31 
46B8:CA 10 F8 24 B5 18 93 4c 50 
46C0:94 48 24 B4 10 BB 4c CD 04 
46C8:48 8A GA AA BD EF 46 8D CF 
46D0:D9 46 BD FO 46 8D DA 46 G7 
46D8:4C FF FF 85 86 87 89 BA D3 
46£0:88 88 13 93 14 OD 91 11 F9 
46E8:9D 1D 20 53 5A 03 43 61 2B 
46F0:48 G7 48 GD 48 13 48 19 75 
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4708:20 1D 4C 20 A7 4A 4c 
4700346 20 FE 48 46 BF 26 
47D8:4A 4c AE 46 AQ G2 20 


48B8:8D EF C7 AD F6 C7 aD 





iD 4B 24 BF 10 23 AD 
48D8:C7 
4860:D7 4A 86 F7 84 F8 AD 
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49A0:8D 
49A8:14 
49B0:D0 
49B8:AD 
4900:20 





4906:98 
4908:66 
4960:49 
4968:31 
49F0:AD 
49F8:68 





4A10:69 
4A18;8D 
4020: 80 
4A28:6A 
4A30:00 
4A38:A2 
4040334 
4A48:C7 
450760 
4058: 4a 
4A60:2C 
4068: 8A 
4A70377 
4A7B:A2 
4080380 
4a88:BE 
4A90:68 
4A98:FA 
4AAG:C7 
4AA8: 20 
4AB0: 60 
4nBB:C5 
4ACG: 82 
4ACB:4A 
4AD0:99 
4AD8: 98 
4050: 4A 
4AE8: 4A 
4AF0: OB 
4AF8:ED 
4B00:4B 
4308:00 
4B10:FB 
4B18: 92 
4B20:C6 
4828: 63 
4B30:B1 
4B38:39 
4B40:85 
4848: 90 
4B50:83 
4B58:B9 
4BG6G:A2 
4868: 8D 
4B70: 4B 
4B78:05 
4B80:D0 
4B88:ED 
4890318 
4B9B:A9 
4BAG: 90 
4BA8: 0D 
4BB0: 4B 
4888:BD 
4BCG:CE 
4BCB: 85 
4BD0:D3 
4BD8:10 
4BEQ:28 
4BE8:13 
4BFO:65 
4BE8: 08 
4000: 85 
408205 
4016: 90 
4C18:68 
4C20:27 
4C 28:85, 
4030: 3E 
4C38:A0 
4C46:C8 








5 
9 
ic 
3 
4068: 20 
4C703A2 
4C78:D8 
4cad:Ee 
4CBB: 26 
4090: 86 
4C983E3 
A4CAG:FF 
4Ca8: 29 
4CBO:85 
4CBB: 27 
4CC6:4C 
4CC8:05 
ACDO:A0 
4CD8: 84 
4CEG:B1 
4CE8:59 
4CPO:A5 
4CP8:10 
4000:4D 





4010:4D 
4D18:E9 
4D20:91 
4D28:63 
4D30:20 
4038: 6B 
4D40:A6 
4048369 
4D5G:AA 
4058: 4D 
4060: 65 
4D68: 00 
4076:0D 
4D78:AS 
4D8G:A2 
4D88:90 
4096:6D 
4098: 24 
4DAG:18 
4DA8:FE 
4DB0:6E, 
40B8: 1E 
4DC0:0C 
40C8: 66 
40D0:E0 
4DD8:6B 
4DEG:00 
4DE8:69 
4DFO:A0 
4DF8:A2 
4600220 
4E08: 60 
4E10:20 
4618:84 
4E20:00 
4E28:9E 
4E30:B1 
4E38:FO 
4640: 60 
4648: 8C 
4850340 
4ESB:AA 
4E60:EE 
4£68:91 





4E78: 26 
4E80:60 
4E88:C0 
4690:85 
4898: 02 
4EAG:CA 
4EAB: 20 
4EBO:20 
4EB8: 20 
48CO:52 
4ECB: 5A, 
4ED0: 46 
4ED8: 00 
4EEG: 41 
4EEB: 20 








4EF0:45 3F 20 28 59 2F 4£ 29 03 | 5198:03 AA BD 11 52 8D CC 51 E3 {SPACE} RESERVED" 
4EF8:00 09 4F 4E 4C 59 26 32 EO | 51A0:49 FF A6 FF 3D 15 52 8D 2D HA 46 PRINT"{2 DOWN}PLEASE WAL 





4F00:35 35 20 4C 49 4E 45 53 BO | 51A8:CE 51 AS G1 48 A9 GO 85 3A T ABOUT 4 ONDS." :AD= 
4F08:20 41 4c 4c 4F 57 45 44 FB | 51B0:@1 A6 F8 BD 49 55 18 79 79 21504. eat 
4F10:00 AD G9 DD C9 95 FG GF 8D | 51B8:00 54 85 6D BD G8 56 79 2C | Ry sg FoRI=17 : 10=2+A: 
4P18:C9 94 FG 23 A9 AG 8D FA F6 | 51CG:AG 54 6D FA C7 85 6E AG F7 RE a AS 
4F20:C7 20 02 57 4C¢ 88 4F A9 2D | 51C8:40 B1 6D 29 G8 G9 GG 91 CD "(DOWNJDATA STATEMENT ER 
4e28:E0 CD EA C7 FG 06 BD FA 3¢ | 51D0:6D AS B1 AZ FO Ad FF 88 96 RORMTETOD 
4P30:C 51D8:F6 05 88 FG 68 0G 2B A2 D7 3 =X- 
51B0:GF GA GA GA GA SE Ga 52 5c | PC 6@ RESTORE: DELENLO (xan oee 
4P 40:80 51£8:8D GA 52 AS FB 4A 4A 4A 49 X 





NT (X/256) 


4P48:F2 9 95 FO 1 5 
57 AD G9 DD CO 95 EO LE | SIFG:AA AS F7 4A 4A 18 7D DB 74 | 34 og OepeNyT (x)=2* (XAND252) :D 


4F50:05 C9 94 FO 07 60 20 £2 62 | 51F8:56 85 6D AD FA C7 7D E9 8C 








4P58:58 4C F2 57 26 D2 59 4c 55 | 5200:56 85 GE AG BB Bl 6D 29 D3 RE ok gepetiee I 
4F60:02 57 26 68 4F 4C 31 EA 59 5208:06 69 99 91 6D 68 85 Gl 21 
4F68:A5 C5 C9 47 BO GC C9 06 44 | 5210:60 3F CF F3 FC G@ 55 AA 2B | FX 80 FORX=07T0159: POKEAD, FNLO( 
4F70:F0 19 C9 G5 FG 12 C9 O4 BE | 5218:FF AS 57 85 61 AS 58 85 41 ENXT (X)) SAD=AD+1: NEXT 
4E78:FG 1 60 A9 97 8D GO DD 47 | 5220:62 AS 5D 38 ES 5B 85 63 99 | KQ 98 FORX=8T0159: POKEAD, FNHI ( 
4F80:A9 CB A2 1B AG 15 DO GF 36 | 5228:A5 SE E5 SC 85 64 AS 59 1C ENXT (X)) AD=AD+12 NEXT 
4F88:A9 95 2C A9 94 BD OB DD 3A | 5230:38 ES 57 85 65 AS 5A E5 GA | EJ 106 FORY=6T0199: POKEAD,FNLO 
4F9G:AD FC C7 A2 3B AG 29 BD Ad | 5238:58 85 66 20 O5 53 A5 5B 55 (ENYT (¥)) :AD=AD+1: NEXT. 
4£98:16 DG BE 11 D@ BC 18 DG 13 | 5240:38 ES 6D 85 6D AS SC £5 21 | XS 11@ FORY=GT0199:POKEAD, FNHI 
9 A9 G7 A2 OO 9D BG BC E7 | 5248:68 85 GE 6G AD FE C7 85 D7 (ENYT (¥)) sADSAD+1: NEXT 





QR 120 FORX=@T024:POKEAD,FNLO ( 


D 9G 8D 9D GO BE 9D BG 17 
59392+40*X) :AD=AD+1:NEX 
T 


4PBO:8F £8 DG Fl AY 98 8D CB FD 
4PB8:4F A9 DG 8D CB 4F AS G1 44 


2 RK 136 FORX=07T024: POKEAD, FNHI ( 
59392+40*X) :AD=AD+1: NEX 


T?READP (8) ,P(1),P(3) ,P( 
4) 





4eD0:C8 4F EE CB 4F AE CB 4F SE 
4FD8:£0 £0 08 EA A2 3 9D 88 B2 
4PEQ:DF CA 16 FA A9 GC 8D 9F OC 
4PE8:DF A9 FE 8D F8 BF AI 99 BD 
4PFO:8D FE DF A9 49 8D FF DF OD 


MJ 140 READC:IFC=99THEN190 

DF 150 GOSUB210:READP(2),P(5), 
E 

KR 166 FORX=6705: POKEAD+X, P(X) 
:NEXT 

JP 170 AD#AD+6:P(2)"P(2)+12P(5 
)=P (5) #1: IPP (2) <#BTHENL 
60 


QA 186 READC:GOSUB216:GOTO140 

QQ 198 FORX=67064:Q=INT (SIN (X* 
J/128)*256+.5)-1:1FQ=-1 
THENQ=0 

PS 200 POKEAD,Q:AD=AD+1:NEXT:E 
ND 

AJ 210 IFC#OTHENRETURN 

RD 226 FORX=1TO EADV: POKEAD+ 
X-1,V:NEXT:AD*AD+C: RETU 
RN 





SP 230 DATA 189,0,157,,8,165, 
1,41, 248,133 

PD 240 DATA 1,162,0,144,160,15 
9,0, 0,208 

HB 250 DATA 176,223,6,232,240, 
3,76,10,87,0 

SF 260 DATA 140,136,143,10, 232 
208,229,165 

XD 270 DATA 1,9,7,133,1,96,8,1 
65,1,41,248 

EG 280 DATA 133,1,162,0,144,22 
4,159,0,0 

EG 290 DATA 208,240, 223,6,232, 
240,3,76,250 

PD 300 DATA 87,0,140,200,143,1 
0,232, 208 

XE 310 DATA 229,165,1,9,7,133, 
1,96,8,165,1 

GM 320 DATA 41,248,133,1,162,0 
160,144,175 

JB 330 DATA 0,0,176,208,191,6, 
232,240, 3,76 

HD 340 DATA 234,88,0,136,140,1 





5090:04 AA AS 6D 95 F7 AS GE AF 
5098:95 F8 88 36 23 4c aD 50 OB 





39,106,232 
BA 350 DATA 208,229,165,1,9,7, 
133,1,96,8 
: XB 360 DATA 165,1,41,248,133,1 
Program 2: 3-D Sprites—BASIC "162, 0,224 " 
HE 10 REM COPYRIGHT 1988 Compu | PP 370 DATA 144,239,0,0, 240,20 
TE! PUBLICATIONS, INC. - 8,255,6,232 
ALL RIGHTS RESERVED FA 386 DATA 246,3,76,218,89,0, 
RH 26 PRINT"{CLR}{3 SPACES}COP 200,146,203 
YRIGHT 1988 COMPUTE! puB | EP 390 DATA 10,232,208,229,165 
+, INC." 1h19¢7)133/1 














CA 30 PRINTTAB(11)"ALL RicHts | SF 400 DATA 96,99 
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WE’VE GOT IT ALL!! 


THE FOLLOWING LIST IS JUST A SAMPLE OF THE OVER 2000 
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SOFTWARE DISCOUNTERS 
OF AMERICA 


© Free shipping on orders 


For Orders Only — 1-800-225-7638 over $100 in continental USA 
PA Orders — 1-800-223-7784 © No Surcharge for VISA/MasterCard 
Customer Service 412-361-5291 ¢ Your card is not charged until we ship 


Commodore 64/128 Bargain Basement—Dozens of Titles For Less Than $10! 


NaS Archon... +$988 INFOCOM THUNDER 
<j TELARIUM-————— ‘Archon 2: Adept. ..'$9.88 Hitchhiker's Guide ..s9a8 | MOUNTAIN 
Financial Cookbook .$9.88 Infocom 7 
Heart of Africa... ..$988 Zork 1 
Lords of Conquest ..$988 KONAMUACTION CITY ™ 
Mail Order Monsters $988 Cicus Charlie .....$0a8 | TOP Gun’ puts 
The first inter- prcieliweiad $22 Hyper SportsPing Fongsaaa | you in the 
alt ie Maker « Track & Field....,..$988 | fighter pilots 
active mystery } .U 21200139.88 MASTERTRONIC Haas 
to use the Action Biker... $438 technological! 
world-famous eon ass RoW 
criminal lawyer. Pinball Const, Set... oltre adyanics 
Racing Dest. Set . Tomcat. 
Real of tmoosbiliys9.a Rae ss 
Seven Cities of Gold $988 Jone” ™ 
Skyfox $9.88 ergs YS Top Gun c 
Perry Mason Serer incites Dans oes ie Our Discount Price $6.88 
‘ ‘ fouchdown 4 “ 
Our Discount Price $9.88 Ultimate Wizard... $9.88 ‘Construction Set. ..$988 
Epvx n 2150 | PECTRUM HOLOBYTE 
ACCOLADE +::$988 Gateway to Apshai . .$6.88 § eee 
Fight Night... <..$988 Pitstop 1 of 2. . .$6.88 Ea. SPINNAKER 
Killed Until Dead. $9.88 . Al in the Color Cave $488 
Law of the West $9.88 $9.88 Bubble Busters... $4.88 
PSS Trading Company $988 $988 #2: Off the Wail eager OU Far 
ACTIVISION $988 #3: School teenies “ee 
Cross Country cas im M 38 
Toad Race’......$988 Argos Expedition ...saa9 [ NCCOH Fescon Reet ooo lgeae 
Ghostbusters... ,.1$988 Math Mileage ...-. $488 Gold Record Race 
Hacker 1 or 2. . $988 Ea, Timebound $488 Karate Chop «+ 
Little Computer PeopleS988 Weather Tamers . $488 learn the Alphabet - 
Transformers.....-.$988 CDA learn to Spell . 
ARTWORK ‘America Cooks Series: learn to Add 
h Bi ‘American ..$988 | The Murder Club Letter Scrambler 
Volleyball, .......$988 Chinese $988 | is made up of five ACCOLADE Monster Voyage 
Equestrian Show French $222 | of the world’s Railroad Tycoon 
Jumper $988 Malian S$988 Ranch 
Highland Games... 1$988 Mexican -- Vigaae || best-selling murder Story Machine 
Police Cadet $988 DATA EAST mystery writers. TELARIUM 
Thai Boxing .......$988 Express Raiders.....$888 | They meet at the Nine Princes in 
AVANTAGE Qoert.........:..$888 | Gargoyle Hotel to ‘Amber » $988 
Deceptor s.-..++-$988  TNKM...........$888 | play a deadly Perry Mason: Case of 
Desert Fox .,..1$988 EASY WORKING! meziheveey. to Mandarin Murder. . $9.38 
Plasmatron ....,...$9.88 SPINNAKER Ln h THUNDER MOUNTAIN 
Power cececccees $988 Filer 14.9698, | murder eacl Arn Moves = eazy, 9600 | | Home BANetins <2 2488) 
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Sesame St. Print Kit .$988 Great Int. Paper Airplane 
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‘Please Read The Following Ordering Terms & Conditions Carefully Before Placing Your Order: Orders with cashiers check or money order shipped immediately on in stock items! Personal 
& Company checks, allow 3 weeks clearance. No C.O.0‘s! Shipping: Continental USA-Orders under $100 add $3; free shipping on orders aver $100. AK, Hl, FPO, APO-add $5 on all orders 
Canada & Puerto Rico-add $10 on all orders. Sorry, no other International orders accepted! PA residents add 6% sales tax on the total amount of order including shipping charges. CUSTOMER 
SERVICE HOURS: Mon-Fri. 9 AM-5:30 PM Eastern Time. REASONS FOR CALLING CUSTOMER SERVICE—412-3615291 (1)Status of order or back order (2if any merchandise purchased within 
60 days from S.Dol A. is defective, please call for a retum authorization number. We will not process a return without a return auth. #! Defective merchandise will be replaced with the same 
merchandise only. Other returns subject to a 20°% restocking charge! After 60 days from your purchase date, please refer to the warranty included with the product purchased & return directly 
to the manulacturer. Customer service will not accept collect cals or calls on S.Diof A's 8008 order lines! Prices & availability are subject to change! New titles are arriving daily! Please call 
for more information, NEW, MORE CONVENIENT ORDER LINE HOURS: Mon-Thurs. 8:30 AM7:00 PM Fri. 8:30 AM-5:30 PM Sat. 10:00 AM-4:00 PM Eastern Time. 





SOFTWARE DISCOUNTERS 
OF AMERICA 


© Free shipping on orders 


For Orders Only — 1-800-225-7638 over $100 in continental USA 
PA Orders— 1-800-223-7784 © No Surcharge for VISA/MasterCard 
Customer Service 412-361-5291 © Your card is not charged until we ship 


‘ABACUS BOOKS ‘ARTWORK $26 Airborne Ranger .... Eternal Dagger 
Anatomy of the 1541..$14 Bridge 5: $19 5 LL1$21 Conflict in Vietnam Gettysburg... 
‘Anatomy of the C64. Cycle Knight 252... $14 Twilights Ransom ...,$23 Crusade in Europe... Kampfgeuppe 
1571 Internals... International Hockey. .$14 Defender of the Crown $23 Wasteland .......... Call F-15 Strike Eagle... Panzer Str «$29 
GEOS Inside & Out. Linkword French .....$16 Sinbad: Throne of World Tour Golf .....$21 Gunship... Phantasie 1, 2 or 3 $25 Ea, 
GEOS Tricks & Tips Linkword German |. .$16 the Falcon $23 EPYX Kennedy Approach . President Elect 1988 ..$16 
ABACUS SOFTWARE Linkword Russian.....$16 The Three Stooges....$23 Boulder Dash Pirates «00.2. Question 2 oes eo0 6 $25 
inkword Spanish ....$16 Warp Speed (R)......$33 Construction Kit, ... Project Stealth Realms of Darkness. ..$25 
Strip Poker..........$21 CMS California Games Red Storm Ris Rings of Zilfin «$25 
Data Disk #1 Female..$14 General Acct. 128 ...$119 Champ. Wrestling . Silent Service... Roadwar 2000... . $25 
; Data Disk #2 Male ...$14 Inventory 128 .......$49 Create A Calendar. MINDSCAPE Roadway Europa... $25 
Cad Paks... Data Disk #3 Female..$14 DATA EAST Death Sword jad Street Brawler ...$19 Shard of Spring ....-.$25 
Cad Pak 128 AVALON HILL Breakthru. $19 Blockbuster... Shiloh: Grant’s Trial $25 
Chart Pak wesc NBA Basketball ......$25 Commando .........$14 3 Bop & Wrestle. 2... Sons of liberty... $23 
Chart Pak 128 20.001. NBA ‘85-86 Season DiskS14 —thari Warriors... $19 ‘$24 Color Me: The Computer War Game Const, Set «$19 
Cobol... i Spitfire “40 $23 OV Call 44 Off Road Racing $24 Coloring Kit ....... War in §, Pacific... $37 
Cobol 128 Pe Super Sunday "$21 Kid Niki Sig Impossible Mission 2°.$24 "Deeper Dungeons . Warship .. Higa 
PPM, Aa SBS 1985 Team Disk $14 Lock On... all De Ja Wu i Wizard's Crown... $25 
PPM 128... SBS 1986 Team Disk ..$14 Speed Buggy -..-----S19 ae Gauntlet 22 i SUBLOGIC 
Speed Term 64 or 128 $25 SBS Gen. Mgr. Disk..-$19 Tag Team Wresiling |. $14 saversee Harrier Combat Sim...$19 Flight Simulator 2... .$32 
Super C Visi Under Fire..........$23 Victory Road. -.. =. Call Indoor Sports........$19 FS. Scenery Disks -. Call 
Super € 128 BATTERIES INCLUDED DATASOFT J Infltrator 1 oF 2 ..$19 Ea, Jet nse. vee see ves $26 
Super Pascal Consultant 64 & 128 Aleseaie Reale Into the Eagle's Nest ..$19 Stealth Mission . $32 
Super Pascal 128. Paperclip Publisher . The City 19 ing Daylights......$19 THREE SIXTY 
TAS Paperclip 3. he Diegisneseeg s2et MISL Soccer ‘$23 Dark Castle $23 
TAS 128-22... BAUDVILLE Battle Droidz. A syalemmts tere 1s 824 Foner boy +++$23 TIMEWORKS 
*Requires GEOSt Blazing Paddles Bismarck ...........$19 Rad Warrior.........$14 Perfect Score SAT ....$44 —accts, Payable .......$33 
ACCESS Leet Peretee see Seba eae Seetbad Chas csc4 Road Runner........$23 Accts Receivable... $33 
Echelon witip Stik . ..$29 Video Vegas . . Global Commander ...$19 SPY ¥* Spy 3: ‘Super Star Data Manager 2 .....$14 
Famous Course Disk #1 BERKELEY SOFTWORKS Hunt for Red October $26 «Arctic Antics. «.« le! Hocheys-++.- Data Manager 128 . $33 
for World Class LB. $14 Geos 128 sit Rubicon Alliance .....$14 Sub Battle simul Evelyn Wood Reader . $14 
Famous Course Disk #2 GeoCalc 128 . Tobruk . T2.<Sa1)  Somemer, Games » General Ledger ‘s33 
for World Class LBS Geofile 128 Tomahawk A) Sees Partner 64 (R) $25 
Famous Course Disk #3 s Video Tide 5 Partner 128 (R) ...2..§33 
fee Watlchs ERIS) Goee oso ss) | rca een Winter Games Bob’s Term Pro 128 -ale/Sideways (D) .$19 
Leader Board (Original) "Desk Pack Plus... DAVIDSON cae 3 -alc/Sideways 128 $33 
“Font Pack Plus. Algeblaster GAMESTAR m Porter’s Personal 
$GeoCale ..... 225 Champ. Baseball - Final Cartridge 3. Planner 64 ... $25 
Triple Pac Ces Hide Me Champ. Basketball....$23 Font Master 2... Porter’s Personal 
Raid Over Moscow $14 *Geo-Programmer mi GFL Ch. Football.....$23 Font Master 128... Planner 128.-..$33 
World Class *Geo-Publish i sea$19,) Superbase 64) Word Writer 3.4... $25 
Leader Board ......$25  *GeorSpell : ae et +519 Superbase 128. Word Writer 128... -.$33 
ACCOLADE *GeoWrite i HAYDEN Superscript 64 UNICORN 
Ace of Aces i Superscript 128 
Apollo 18: Mission me Super Snapshot (R) - Fraction Action 
faith Moon sisase:S19) — Basleee Form Shor “$19 iwrocom ORIGIN hrereedbees 
Card Sharks . 1319 : Beyond Zork 128 Autoduel Race Car Rithmetic . 
44th & Inches Football /$19 Carmen Sandies Border Zone - Moebius. =. >> Ten Little Robots .... $19 
Hardball S19 4 aaa reel Leather Goddeses «-- $23 OB =. UNISON WORLD 
Mini Putt <.200.00.$19 a : Nord & Bert Couldn't Mal ima oF ‘Ant Gallery 1 or 2.$16 Ea. 
Power at Sea soss01519 es Roce rfeneer ac Head or Tal of M..$23 Ultima 4 ....0. 0. ‘Art Gallery: Fantasy. 
Test Drive vsscscessS19 Magnetron . é Tall 3 kn 1 Super Pack Sherlock: The Riddle of the Ultima S$... 0... Print Master los 
The Train: Escape to tau shoe. tree eats Crown Jewel PROFESSIONAL WEEKLY READER 
Normandy .....+..519 ps, Compani RESTRONIC ABTS Stationfall oo... 005 Fleet Filer .....2.6:$19  Stickybear Ser 
ACTION SOFT RS: Graphics Library Alen Fes War’ oSig ‘The lurking Horror Fleet System 2 Plus...$33 Agcy. 
Thunder Chopper ....$19 #1, #2, 0F #3....$16 Ea Arctic Fox Stg23 Zork Trilogy... «++ Fleet System 4 128 ...$43 Math 1or2.,.. 
Up Periscope! .......519 pS. Graphics Library Arctic Fox oo g382)_ INKWELL SYSTEMS SIMON & SCHUSTER Neenbeer 
ACTIVISION Holiday Edition Herter ok ivaney Ex, #170 Dekne LP. 1K Lasser Money 
vere $3 fi : Pes AC Light Fen Typing Tutor 4. 
ademy $25 Ulin idraw 55 « 
Gee Bee Air Rally .. $19 yee eae tye kag Graphics Intregrator 2. $19 es 
Maniac Mansion .....$23 5 4 Chuck Yaeger’s AFT KONAMUACTION CITY ACCESSORIES 
Might & Magic... $25 ereseees Demon Stalker... re Call ‘Animation Station ... .$49 
Music Studio....... $23 Speed Rumbler Dragon's Lair... senor Call IONS Bonus $5, DD... $4.99 Bx. 
Postcards ....+.+.++.$16 CBS Earth Orbit Station... wesesesCall Football x. ++00$19 Bonus DS, DD ..$5.99 Bx. 
Rampage... $231 success Algo Hills of Montezuma. Rush ’n Attack/Yie Pure Stat Baseball ....$25  Compuserve Starter Kit $19 
Shanghai «sv. 5.00519 Instant Music, «<< : Pure Stat College Contriver Mouse . «$39 
Sky Travel . & Factoring Legacy of Ancients LOGICAL DESIGN Basketball Disk (Case (Holds 75)$6.88, 
The Last Ninja. int Degree & Advanced Marble Madness... Club Backgammon ...Call *Data Disks Available Call Disk Drive Cleaner. . $6.88 
AMERICAN EDUCATIONAL Unear Equations ..$19 Master Ninja... Vegas Craps.......++-$19 SPRINGBOARD Epyx 500 X} Joysti 
Biology ss+2.$12 Graphing Linear Monopoly a Vegas Gambler... .-.$19 Certificate Maker... {controller « 
Learn to Read (Gr. 14)$25 "Functions .........$19 Patton vs. Rommel... MICROLEAGUE CM. Library Vol. 1. Suncom TAC $ JS... 
Phonics (K-3) ........$25 Simultaneous & Pegasus Baseball............$25  Newsroom........ Wico Bat Handle... . 
Science: Grades 3/4,..$12 Quadratic Equations.$19 Roadwars_.- i Box Score Stats ---.--$16 N.R. Clip Art Voi. 1 -$9.88 — Wico Boss «00.04. .$12 
Science: Grades 5/6...$12 Success wiMath: Rockford <2... General Manager... $19 N.R. Clip Art Vol. 2.$9.88 XETEC Super Graphix $59 
Sclence: Grades 7/8, . $12 ‘Addition & Subt.....$19 Scrabble - 4 Team Data Disk .$14 | Clip Art Vol. 3..$9.8 Xetec Super Graphix 
US Geography... .$12 Decimals: Add. & Subt.$19  Scruples. 4 1987 Team Data Disk “$14 PS. Graphics Expander $23 Gold. bee 
US History. 00000000 $12 Decimals: Mult. & Div$19—Skyfox 2 i WWF Wrestling......$19 SSI XETEC Super Graphix } 
World Geography... $12 Fractions: Add. & Subt$19 Skate or Die i MICROPROSE Battle of Antietam....$32 “All programs on disk 
World History... $12 Fractions: Mult. & Div 19 Acro $16 B24... $23 __unless otherwise noted! 
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How To Type In 


Each month, COMPUTE!’s Gazette 
publishes programs for the Com- 
modore 128, 64, Plus/4, and 16. 
Each program is clearly marked by 
title and version, Be sure to type in 
the correct version for your ma- 
chine. All 64 programs run on the 
128 in 64 mode. Be sure to read the 
instructions in the corresponding 
article, This can save time and elim- 
inate any questions which might 
arise after you begin typing. 

We frequently publish two 
programs designed to make typing 
easier: The Automatic Proofreader, 
and MLX, designed for entering 
machine language programs. 

When entering a BASIC pro- 
gram, be especially careful with 
DATA statements as they are ex- 
tremely sensitive to errors. A mis- 
typed number in a DATA statement 
can cause your machine to “lock 
up” (you'll have no control over the 
computer). If this happens, the only 
recourse is to turn your computer 
off then on, erasing what was in 
memory. So be sure to save a pro- 
gram before you run it. If your com- 
puter crashes, you can always 
reload the program and look for the 
error, 





When You Read: 


(sa) [exon] 
[stir | 


{CLR} 
{HOME} 
{UP} 
{DOWN} 
{LEFT} 





{RIGHT} 
{RVS} 
{OFF} 
{BLK} 
{WHT} 
{RED} 
{CYN} 
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Special Characters 

Most of the programs listed in each 
issue contain special control charac- 
ters. To facilitate typing in any pro- 
grams from the GAZETTE, use the 
following listing conventions. 

The most common type of con- 
trol characters in our listings appear 
as words within braces: {DOWN} 
means to press the cursor down 
key; {5 SPACES} means to press 
the space bar five times. 

To indicate that a key should 
be shifted (hold down the SHIFT 
key while pressing another key), 
the character is underlined. For ex- 
ample, A means hold down the 
SHIFT key and press A. You may 
see strange characters on your 
screen, but that’s to be expected. If 
you find a number followed by an 
underlined key enclosed in braces 
(for example, {8 A}), type the key 
as many times as indicated (in our 
example, enter eight SHIFTed A’s). 

If a key is enclosed in special 
brackets, 9, hold down the 
Commodore key (at the lower left 
corner of the keyboard) and press 
the indicated character. 

Rarely, you'll see a single letter 
of the alphabet enclosed in braces. 


When You Read: Press: 


{PUR} 





{GRN} 
{BLU} 
(YEL} 











{mh} 
{Rr} 
{5B} 
{} 











{F5} 
{ Fo} 
{F7} 
{ F8} 
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This can be entered on the Commo- 
dore 64 by pressing the CTRL key 
while typing the letter in braces. For 
example, {A} means to press 
CTRL-A. 


The Quote Mode 
Although you can move the cursor 
around the screen with the CRSR 
keys, often a programmer will want 
to move the cursor under program 
control, This is seen in examples 
such as {LEFT}, and {HOME} in 
the program listings. The only way 
the computer can tell the difference 
between direct and programmed 
cursor control is the quote mode. 
Once you press the quote key, 
you're in quote mode. This mode 
can be confusing if you mistype a 
character and cursor left to change 
it. You'll see a reverse video charac- 
ter (a graphics symbol for cursor 
left). In this case, you can use the 
DELete key to back up and edit the 
line. Type another quote and you're 
out of quote mode. If things really 
get confusing, you can exit quote 
mode simply by pressing RETURN, 
Then just cursor up to the mistyped 
line and fix it. 


When You Read: 
< 


it (a) 


Press: 








am 2 





For Commodore 64 Only 








[COMMODORE] 
‘COMMODORE 
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COMMODORE | 
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Best Buys From TENEX 


No Gimmicks, No Hidden Uys No Nonsense, Just Low Prices and Great Service! 


Dust Cover & 

Everything Book 

Discover the savings and easy shopping availablo 

from TENEX Computer Express PLUS rocoive a 

FREE dust covor for your C64, C128 or 64C! Covor 

{s anti-statlo, 8-gaugo viny! sown to our exacting 

standards with reinforced seams, Got to know our 

great products, extensive selection and fast sorvico 

With a FREE copy of our Evarything Book for Com- 
modore Computing. ($2.95 Shipping Chargo) 


31627 C64 Dust Cover and Catalog (G4Q) 
38464 C128 Dust Cover and Catalog (G4Q) 
65180 64C Dust Cover and Catalog (G4Q) 








From MICO fat 
The 39 ¢ Diskette 


‘Aro you paying too much for diskettes? Try our first 
quality, primo, 5-1/4" diskettes (no rejects, no soo- 
‘onds) al these fantastic sale prices and save, savo, 
SAVE Disks aro packaged in boxes of 50; including 
diskottes in sloaves, labols, and write-protect tabs. 

Each diskette is cortitiod to be 100% error froo and 
‘comes with a lifetime warranty (if you have a prob- 
lem, wo'll replace the diskette). All diskettes include 
hub reinforcement rings and write-protect notch, 

‘All diskettes are double-density and work in ether 
single or double-density drives. 


SS, DD Diskettes, Box of 50 
32391 $19.50 - 39¢ oa.! 


DS, DD Diskettes, Box of 50 
32403 $24.50 - 49¢ ea.! 








Diskette Storage 


Only 
$9% 


— 


+ 100 disk (5-1/4") capacity, 

*+ Lock and keys for extra security and easy 
carrying. 

* Includes 8 index dividers with labels for 
Organization of fing and retrieval. 

+ Mado of durablo anti-static, high impact plastic, 

* Attractive smokod color lid, 





Sug, Rotall $19.05, 


66826 NOW ONLY $9°° 


Hardware Software 


Interfaces Aces 
wee $224,95 Xetoc Super Graphix Ur snee$44.95 ECHOION surere 
sanes$189.95 Xetoc Super Graphix 59.95. 
$279.95 Xotoc Super Graphix Gol 
Okimato 20 Color Printer...$124.95 PPI Interface. 
‘Star NX-1000 varsneseuseesenseen $CALL 
B1AF NX=1000C seressnseersnreee $CALL rte plea 
Star NX-1000 Rainbow .....SCALL NEW! Wico Ergostiok wu... $19.95 gooCalo, Cia8 
S1BF NX+15 s.cssesteneemnsnenS CALL Commodore 1352 Mouse .....$69.95 gooF lle, C128 .... 
SoIKOSNA SP-180 rvsreoneer$169,95 EPYX 50OXY serresserrneeneresenes $15,905 Writor's 'Workshop-C128 ma 75 rH 
‘Soikosha SP 1200-A) .......$199.95 Cartridge Expander, C64 


Printers: 
































Sokosha SP 1600-Al_.....SCALL [CONT (Ol 0 vninnnnm enone 
SUNCOMTAC 5 sninnsinnnsns 14.95 
Computers 
Commodore C1280 rewrmnnn$CALL Powor Supplles 
‘Amiga 600 







‘Amiga 2000, 
‘Thunder Mountain: 
Pac-Man... 














Disk Drives Accessories svveeenre 9795: 
FSD-24 Disk Drive... Sale $149.00 Disk DoubIOr ssn $6.95 
Excel 2001 Disk Drive Sale $199.00 Universal Printor Stand ....$14.95 Utilities 


‘Commodore 1581 Drive. SCALL Data Transfor Switch .....0$24,95 Big Blue Reader CP/M 
‘Commodore 1641 Drive.....$CALL i 


Monitors: 


‘Free! 56 page Everything” Book With Any Order! 





= 


$8995 $7495 


True Letter-Quality Printing 


The Bluo Chip features bi-directional daisywhoe! Printing 
with a print speed of over 150 words per minute, Its friction 
feed mechanism operates just like @ typowritors roloaso 
lever and paper advance knob, for your use wit lotterhoad, 
envelopes, otc. This printer will plug into tho sorlal port of 
your Commodore, Use the included cable and you're ready 
togo! Includes a high-quality print ribbon that lasts for70,000 
characters, Six month warranty 


1200 Baud Bargain 


‘Tho VOLKS 6480 MODEM transmits at 1200 
baud with the ability to slow down to 300 baud for 
maximum capabilty. This Volks Modom will 
connect directly to the user port of your Com 
modoro, Its features include over 30K momory, 
Auto Dial/Auto Answer, Bell 212A capability, 














77428. Bluo Chip Daisywhoe! Printer $89.95 | tonoandpulsedialingplus more, Includes FREE 
77436 Black Film Ribbon for Blue Chip $5.95 | Comterm IV software. 
77812 Black Ribbon, Multl-strike for Blue Chip $8,95 | 40521 Volks 6480 Modem $74.95 
ee Formed For The Human Hand Chi $1995 
a) Ergostick Joystick. This istho cutting edgo of joystick 
“THE BEST SERVICE® | tochnology, it's the Ergostick Joystick and you'll bo 
amazod at is innovation, Uniko all othor joysticks, tho 
WHY SHOP Ergostick litorally forms around the human hand which 
ANYWHERE ELSE? | opiimizos tho oporator's hand/oyo coordination, 
76253 Ergostick Joystick $19.95 











From Your Friends At 


TENEX ter 


We gladly accept mail orders! 


P.O. Box 6578 


Questions? 


~ Call 219/259-7051 


CouMODORE 4 args adena and COMMODORE 128 a tama ol Commer Deceit LM APO FPO, AK HCN, OM, rap ed 
wihout nota, 


se ntfect to adtenal shipping chargox NOTE: Duet puttatig lead 





South Bond, IN 46660 


Shipping Charges No Extra Fee For Charges! 








Order Amount Charge | — 

less than $19.99 $3.75 —— 

tocosnss 472 TI] ORDER TOLL FREE 
Heoooseoso 775 See 1-800-348-2778 
$300.00 & up 8.75 


booms AES IFS WE VERIFY CHARGE CARD ADDRESSES 














MLX 


Ottis R. Cowper 


For 


“MLX” is a labor-saving utility that 
allows almost fail-safe entry of 
machine language programs. Included 
are versions for the Commodore 64 
and 128. 


Type in and save some copies of which- 
ever version of MLX is appropriate for 
your computer (you'll want to use it to 
enter future ML programs from COM- 
PUTE!s GAZETTE). Program 1 is for the 
Commodore 64, and Program 2 is for 
the 128 (128 MLX can also be used to 
enter Commodore 64 ML programs for 
use in 64 mode), When you're ready to 
enter an ML program, load and run 
MLX, It asks you for a starting address 
and an ending address. These addresses 
appear in the article accompanying the 
MLX-format program listing you're 
typing. 

If you're unfamiliar with machine 
language, the addresses (and all other 
values you enter in MLX) may appear 
strange. Instead of the usual decimal 
numbers you're accustomed to, these 
numbers are in hexadecimal—a base 16 
numbering system commonly used by 
ML programmers. Hexadecimal—hex 
for short—includes the numerals 0-9 
and the letters A-F, But don’t worry— 
even if you know nothing about ML or 
hex, you should have no trouble using 
MLX. 

After you enter the starting and 
ending addresses, you'll be offered the 
option of clearing the workspace. 
Choose this option if you're starting to 
enter a new listing. If you're continuing 
a listing that’s partially typed from a 
previous session, don’t choose this 
option. 

A functions menu will appear. The 
first option in the menu is ENTER 
DATA. If you're just starting to type in 
a program, pick this. Press the E key, 
and type the first number in the first 
line of the program listing. If you've al- 
ready typed in part of a program, type 
the line number where you left off typ- 
ing at the end of the previous session 
(be sure to load the partially completed 
program before you resume entry). In 
any case, make sure the address you en- 
ter corresponds to the address of a line 
in the listing you are entering. Other- 
wise, you'll be unable to enter the data 
correctly. If you pressed E by mistake, 
you can return to the command menu 
by pressing RETURN alone when 
asked for the address. (You can get back 
to the menu from most options by 
| pressing RETURN with no other input.) 











Machine Lan 





Entering A Listing 
Once you're in Enter mode, MLX prints 
the address for each program line for 
you. You then type in all nine numbers 
on that line, beginning with the first 
two-digit number after the colon (:). 
Each line represents eight data bytes 
and a checksum, Although an MLX- 
format listing appears similar to the 
“hex dump” listings from a machine 
language monitor program, the extra 
checksum number on the end allows 
MLX to check your typing. (Commo- 
dore 128 users can enter the data from 
an MLX listing using the built-in moni- 
tor if the rightmost column of data is 
omitted, but we recommend against it. 
It's much easier to let MLX do the proof- 
reading and error checking for you.) 
When you enter a line, MLX recal- 
culates the checksum from the eight 
bytes and the address and compares 
this value to the number from the ninth 
column. If the values match, you'll hear 
a bell tone, the data will be added to the 
workspace area, and the prompt for the 
next line of data will appear. But if MLX 
detects a typing error, you'll hear a low 
buzz and see an error message. The line 
will then be redisplayed for editing. 


Invalid Characters Banned 

Only a few keys are active while you're 
entering data, so you may have to un- 
learn some habits. You do not type 
spaces between the columns; MLX 
automatically inserts these for you. You 
do not press RETURN after typing the 
last number in a line; MLX automatical- 
ly enters and checks the line after you 
type the last digit. 

Only the numerals 0-9 and the let- 
ters A-F can be typed in. If you press 
any other key (with some exceptions 
noted below), you'll hear a warning 
buzz, To simplify typing, 128 MLX re- 
defines the function keys and + and — 
keys on the numeric keypad so that you 
can enter data one-handed. (The 64 
version incorporates the keypad modi- 
fication from the March 1986 ‘‘Bug- 
Swatter” column, lines 485-487.) In 
either case, the keypad is active only 
while entering data. Addresses must be 
entered with the normal letter and 
number keys. The figures above show 
the keypad configurations for each 
version. 

MLX checks for transposed charac- 
ters. If you're supposed to type in AO 
and instead enter 0A, MLX will catch 
your mistake. There is one error that 


ase Entry Program 
Commodore 64 and 128 


64 MLX Keypad 





128 MLX Keypad 


A B c 
(F1) | (F3) 





















can slip past MLX: Because of the 
checksum formula used, MLX won't 
notice if you accidentally type FF in 
place of 00, and vice versa. And there's 
a very slim chance that you could gar- 
ble a line and still end up with a combi- 
nation of characters that adds up to the 
proper checksum. However, these mis- 
takes should not occur if you take rea- 
sonable care while entering data. 





Editing Features 

To correct typing mistakes before fin- 
ishing a line, use the INST/DEL key to 
delete the character to the left of the 





cursor. (The cursor-left key also de- 
letes.) If you mess up a line really badly, 
press CLR/HOME to start the line over. 
The RETURN key is also active, but 
only before any data is typed on a line. 
Pressing RETURN at this point returns 
you to the command menu. After you 
type a character of data, MLX disables 
RETURN until the cursor returns to the 
start of a line. Remember, you can press 


CLR/HOME to quickly get to a line 
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COMPUTER 
DISCOUNTS ON 
ALL YOUR 
COMPUTER NEEDS 


CORA PA NIN 
64 WEST 36th ST., NYC, NY 10018 


COMPUTER 
DISCOUNTS ON 
ALL YOUR 
COMPUTER NEEDS 


OUR ONLY STORE!! ESTABLISHED SINCE 


& commodore 
COMMODORE 64-C 


(€kcommodore 
‘ 128 
i} DREAM 
PACKAGE 


OUTFIT (foam 


$488 U. 


‘CHOOSE YOUR OWN PACKAGE DEAL 


BLUE CHIP 
25 PIECE PACKAGE 
BM XT COMPATIBLE® 


te aati ite 
8.8 
ee. 
7 


Chip Keyboard W/260K Floppy Drive 
itor + Package [0 Diskettes «Disc Drive Head 
“Spread sheet *Data 


=a 


NEW FROM 
COMMODORE 


coLT 


Compatible" 


LUDE: 2. Speed 98,7 
lel Seria Mouse Ports #640K 


GOK Floppy Orive 


‘ON NEW LOW PRICE 
Avail, W/20MU & 10 MB Hard Drives 


STORE TECHNICIANS ON 
PREMISES 
FULL SERVICE & SUPPORT 
COMMODORE 
AMIGA 2000 
CALL FOR NEW. 
LOW PRICE! 


feaTUnEs CLUDE | MB Manery 


GES enone onoens ony 
és CALL TOLL FREE 
I (800) 223-0322 


FOR INFORMATION CALL 
(212) 695-7133 


2) 
same ken 


COMMODORE 


IBM/XT 
Compatible” 


kKcommodore 
COMMODORE 64-C 


} 20 PIECE 


DREAM 
OUTFIT 


Cxcommodore 


128 
PROFESSIONAL 
OUTFIT 


EPSON EQUITY Il 
25 PIECE PACKAGE 
IBM XT COMPATIBLE” 


$ 6 48 .% AVAILABLE 


FLOPPY DRIVE 


COMMODORE 


PCIO-III if] 


IBM/XT ei 


Compatible” |~* 


NEW FROM 
COMMODORE 


CALL FOR NEW LOW PRICE! 
Avail. W/20MB & 30 MB Mard Drives 


i (xcommodore SS 


——"} HARDWARE &; 
SOFTWARE 


ITEMS SOLD SEPARATELY CALL Now TOR NEW LOW PRICESH 


NEW YORK STATE RESIDENTS CALL 
(212) 695-7133/695-7134 


ON ALL PHONE ORDERS PLEASE CALL 
MON.-SAT. 10:00AM-7:30PM. 
SUNDAY 10:00 AM-6:00 PM 


Use Master Card, Visa, American Express, 
‘or Send Money Order, Certified Check. , 
WE NOW TAKE DISCOVER & 
DINERS CLUB 


| VISA 
oS 


AMIGA 500 
TOP OF THE LINE OUTFIT 


we hie RGB 


s 10 Daketes Die 
wners Manual sUSA Guarantee 


ibiea Seis atin foro 
amiga 10 $848 


ia toz0 
"Cecommedore 


_—— 


MIX & MATCH THE COMPUTER SYSTEM 


‘THAT'S GOOD FOR YOU & OME OF OUR COMPUTER 
SPECIALISTS WILL GIVE YOU A SPECIAL PRICE! 


25 PIECE PACKAGE 
IBM XT COMPATIBLE” 


13698 


AVAILAB: 
WITH: 3141" 
FLOPPY DRIVE 


BLUE CHIP 
PC Popular 
IBM/XT 
Compatible” 


FEATURES INCLUDE: 8088 Processor 4,77 
Switchable Megahertz *ParalelSerial Mouse 
me Ports #512K Ram eClock Back Up 

AVAILABLE 
FlorPy priv 


CALL FOR NEW 
LOW PRICE! 
; TOP 20 


FEATURES INCLUDE: 286 Processor #287 Co 
rocessr Sit #6810 Mepaert #0 Expansion 


/SINGLE & DUAL *12MB opp e408 Ram Epo 


ailable witht 20/30/: 
Megabyte Hard Drives 


BEST SELLING 
PRINTERS FOR 
COMMODORE 


SEIKOSHA 

SEIKOSHA 1000. 

SEIKOSHA 1200A1 
000 


OE 
OKIMATEIO 
CALL FOR NEW LOW PRICES!!! 
MIBRO Co., INC. 


64 West 30th Street, New York, N.Y. 10018 
MON. THRU SAT, 10:00AM-7:30PM SUN. 


8 Refunds 
Al orders 


een 1230 g-6:30 pn. Pes god 
be exact. Department of Con 
ted without prior verbal 











number prompt. 

More editing features are available 
when correcting lines in which MLX 
has detected an error. To make correc- 
tions in a line that MLX has redisplayed 
for editing, compare the line on the 
screen with the one printed in the list- 
ing, then move the cursor to the mis- 
take and type the correct key. The 
cursor left and right keys provide the 
normal cursor controls. (The INST/ 
DEL key now works as an alternative 
cursor-left key.) You cannot move left 
beyond the first character in the line. If 
you try to move beyond the rightmost 
character, you'll reenter the line. Dur- 
ing editing, RETURN is active; pressing 
it tells MLX to recheck the line. You can 
press the CLR/HOME key to clear the 
entire line if you want to start from 
scratch, or if you want to get to a line 
number prompt to use RETURN to get 
back to the menu. 


Display Data 

The second menu choice, DISPLAY 
DATA, examines memory and shows 
the contents in the same format as the 
program listing (including the check- 
sum). When you press D, MLX asks you 
for a starting address, Be sure that the 
starting address you give corresponds 
to a line number in the listing. Other- 
wise, the checksum display will be 
meaningless. MLX displays program 
lines until it reaches the end of the pro- 
gram, at which point the menu is redis- 
played, You can pause the display by 
pressing the space bar. (MLX finishes 
printing the current line before halting.) 
Press space again to restart the display. 
To break out of the display and get back 
to the menu before the ending address 
is reached, press RETURN, 


Other Menu Options 
Two more menu selections let you save 
programs and load them back into the 
computer. These are SAVE FILE and 
LOAD FILE; their operation is quite 
straightforward. When you press S or L, 
MLX asks you for the filename. You'll 
then be asked to press either D or T to 
select disk or tape. 

You'll notice the disk drive starting 
and stopping several times during a 
load or save (save only for the 128 ver- 
sion). Don’t panic; this is normal be- 
havior. MLX opens and reads from or 
writes to the file instead of using the 
usual LOAD and SAVE commands 
(128 MLX makes use of BLOAD). Disk 
users should also note that the drive 
prefix 0: is automatically added to the 
filename (line 750 in 64 MLX), so this 
should not be included when entering 
Is: name. This also precludes the use of 





@ for Save-with-Replace, so remember 
to give each version you save a different 





name. The 128 version makes up for 
this by giving you the option of scratch- 
ing the existing file if you want to reuse 
a filename. 

Remember that MLX saves the en- 
tire workspace area from the starting 
address to the ending address, so the 
save or load may take longer than you 
might expect if you've entered only a 
small amount of data from a long list- 
ing. When saving a partially completed 
listing, make sure to note the address 
where you stopped typing so you'll 
know where to resume entry when you 
reload. 

MLX reports the standard disk or 
tape error messages if any problems are 
detected during the save or load. (Tape 
users should bear in mind that Commo- 
dore computers are never able to detect 
errors during a save to tape.) MLX also 
has three special load error messages: 
INCORRECT STARTING ADDRESS, 
which means the file you're trying to 
load does not have the starting address 
you specified when you ran MLX; 
LOAD ENDED AT address, which 
means the file you're trying to load 
ends before the ending address you 
specified when you started MLX; and 
TRUNCATED AT ENDING AD- 
DRESS, which means the file you're 
trying to load extends beyond the end- 
ing address you specified when you 
started MLX. If you see one of these 
messages and feel certain that you've 
loaded the right file, exit and rerun 
MLX, being careful to enter the correct 
starting and ending addresses. 

The 128 version also has a CATA- 
LOG DISK option so you can view the 
contents of the disk directory before 
saving or loading. 

The QUIT menu option has the ob- 
vious effect—it stops MLX and enters 
BASIC. The RUN/STOP key is dis- 
abled, so the Q option lets you exit the 
program without turning off the com- 
puter. (Of course, RUN/STOP-RE- 
STORE also gets you out.) You'll be 
asked for verification; press Y to exit to 
BASIC, or any other key to return to the 
menu. After quitting, you can type 
RUN again and reenter MLX without 
losing your data, as long as you don’t 
use the clear workspace option, 


The Finished Product 

When you've finished typing all the 
data for an ML program and saved your 
work, you're ready to see the results. 
The instructions for loading and using 
the finished product vary from program 
to program. Some ML programs are de- 
signed to be loaded and run like BASIC 
programs, so all you need to type is 
LOAD “‘filename’,8 for disk (DLOAD 
“filename” on the 128) or LOAD “file- 
name” for tape, and then RUN. Such 





ams will usually have a starting 
address of 0801 for the 64 or 1C01 for 
the 128. Other programs must be re- 
loaded to specific addresses with a com- 
mand such as LOAD “filename’,8,1 for 
disk (BLOAD “filename” on the 128) or 
LOAD “‘filename’’,1,1 for tape, then 
started with a SYS to a particular mem- 
ory address. On the Commodore 64, 
the most common starting address for 
such programs is 49152, which corre- 
sponds to MLX address C000. In either 
case, you should always refer to the ar- 
ticle which accompanies the ML listing, 
for information on loading and running 
the program. 





An Ounce Of Prevention 


By the time you finish typing in the data 
for a long ML program, you may have 
several hours invested in the project. 
Don’t take chances—use our “Auto- 
matic Proofreader” to type the new 
MLX, and then test your copy thorough- 
ly before first using it to enter any sig- 
nificant amount of data. Make sure all 
the menu options work as they should. 
Enter fragments of the program starting 
at several different addresses, then use 
the Display option to verify that the 
data has been entered correctly, And be 
sure to test the Save and Load options 
several times to ensure that you can re- 
call your work from disk or tape. Don’t 
let a simple typing error in the new 
MLX cost you several nights of hard 
work, 


Program 1: MLX For Commodore 
64 


SS 1@ REM VERSION 1.1: LINES 8 
36,950 MODIFIED, LINES 4 
85-487 ADDED 

EK 100 POKE 56,58:CLR:DIM IN$, 

I,3,A,B,A$,BS,A(7) «NS 

C4=48:C6=16 :C7=7 1226222 

4=254125=255 :26=256:27= 

127 

PA=PEEK (45) +Z6*PEEK (46) 

:BS=PEEK (55) +Z6*PEEK(56 

) :H$="@123456789ABCDEF” 

RS=CHRS (13) :L$="{LEFT)" 

:8$=" ":D$=CHR$(20):Z$= 

CHR$():TS="(13 RIGHT)" 

$D=54272:FOR I=SD TO SD 

+23:POKE I,@:NEXT:POKE 

(SPACE}SD+24,15:POKE 78 

8,52 

PRINT" {CLR} "CHR$ (142) CH 

R$(8):POKE 53280,15:POK 

E 53281,15 

PRINT TS" [RED] {RVS} 

{2 SPACESJE8 @2 

{2 SPACES}"sPc(28)" 

{2 spACES}{OFF}(BLU} ML 

X It [RED}{RVS} 

{2 SPACES}"spc(28)" 

{12 spaces} (BLU}" 

PRINT"{3 DOWN} 

{3 SPACES}COMPUTE!'S MA 

CHINE LANGUAGE EDITOR 

{3 DowNn}" 

PRINT" {BLKJSTARTING ADD | 


DM 110 


co 128 


SB 138 


cq 148 


EJ 168 


FR 178 





JB 180 
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is available in Microform. 








University Microfilms International 


Please send additional information 


for 








Name. 





Institutior 








Street 
City. 





State. Zip. 


300 North Zeeb Road, Dept, P.R.. Ann Arbor, Mi, 48106 








Save Your Copies of GAZETTE 


Protect your back issues 
of GAZETTE in durable 
binders or library cases. 
Each binder or case is 
custom-made in pine 
green binding with em- 
bossed white lettering. 
Each holds a year of 
GAZETTE. Order several 
and keep your issues of 
COMPUTE!'s Gazette neatly organized for quick 
reference, (These binders make great gifts, tool) 


Binders 
$9.95 each; 


Cases: 
$7.95 each; 
3 for $21.95; 


CALL TOLL FREE 
3 for $27.95: 7 days, 24 hours 
6 for $39.95 6 for $52.95 1-800-972-5858 
(Add $1 per case/binder for postage & handing, Please add 
$2.0 per unit for orders outside the U.S.) 
Send in your prepaid order with the attached coupon 
ne | 
Mail to: Jesse Jones Industries, Dept. GAZ 
499 East Erie Ave., Philadelphia, PA 19134 
Please send me. GAZETTE O cases O binders. 
Enclosed is my check or money order for § —___ . 
(US. funds only,) 
Name 
Address 
City 
State 


Satisfaction guaranteed or money refunded. 
Please alow 4-6 weeks for delivery, 











Zip 


No P.O. Box Numbers Please 

















AUTHORIZED ATARI ST/XL/XE 









Ail Hardware/Software & Accessories: 


LOOK HOW MUCH YOUR C64, 


NEW COMMODORE PC-10-III 
TURBO $449* 

(100% IBM Compatible) Complete 360K drive, 640K RAM, Printer/ 

Modem/Mouse ports, Color & Mono graphics, MS-DOS/GW BASIC. 





NEW AMIGA 500-512K RAM, 
880K DRIVE $349* 









*with trade-in of your C128 & C1571 or 
your C64, 1541 & color monitor. 


WANT TO TRADE IN YOUR AMIGA? ATARI ST? $$$ 


NEW AMIGA 500-512K RAM, 880 DRIVE Only $49 
with trade-in of Atari 8208T FM Color System, 


NEW AMIGA 2000 Only $1129 
‘with trade-in ot AS0O or A1000:512K. 


USED PRODUCT PRICES 

















64 CPU $109 128 cPU $199 vic20 cPU $99 
¥541 Drive $125. 1871 Drive $189. Xetec LT. Kernal 20MB $599 
Viemodem 04/128 $25 GA/128 Workstation $59 Hayes Smartmadem $49 
Digitizer/Recognition $59. C1802 Monitor $149. Monitors from $39 
MPS 801 Printor $72 VIC 1525 Printer $79 Okimate 10colorw/PIP $99 


sho 
$32 


Commodore 1830/C2N $20 
Xolec Graphix SR $49 


Datamaster Cassette 
Software/Books from $1.00 


Gemini 10 Printer 
051 PPI Interface 





We buy/sell/trade new & used Commodore’ CUSTOMER SATISFACTION GUARANTE 
Amiga, 18M compatibies, Atari/ST including 
hardware, software and accessories, All refer- 
entves to trade-ins assume equipment to be in 
{900d working condition. Shipping/handiing will 
be added 10 all prices. 

















2017 13th Street, Sulte A 
Boulder, CO 80302 


Computer 









Prices shown reflect a 3% discount for cash 
‘Add 3% for credit card purchasos, 
Prices shawn are mail order only 


WE CHECK FOR CREDIT CARD THEFT! 


BUY, SELL OR TRADE3?? 




















| See software quotes: (303) 939-8174 


We Accept Mastor Card/VISA/Amorican Expross and C,0.0. 






COMMODORE/AMIGA DEALERS 








Plus IBM Compatible 


/C128 IS WORTH $$$ IN TRADE!!! 
NEW AMIGA 2000-1MB RAM, 


Equipment 


880K DRIVE $1269* 
NEW COMMODORE C128D 





(bullt-in 1571) $259* 


— AMIGA/PC — 
Bridge Card w/drive 
















Commodore PC10-II|_ $649 $59 20MBDrivewicont $529 
500 $549 


512K RAM EXP $149. Master 3A (100% 1010)$189 

‘A2000:1MB RAM $1469 2MB RAM EXP $425 1010 extdrive $199 
— 64/128 — 

GAC CPU WGEOS — $159. 1951 Mouse $30 1764 250K RAM C64 $119 

1280 w/bulltin drive $459 1700 128k RAM.C128 $109 1750 512k RAM C128 $159 

C1084 AGB 80 $299 $109 C1670 1200 (In Stock!) $75 








2001 (100% 1571) 
‘Amiga 1010 drive 


$209 
$199 


1581 3 5° Drive 
1841-11 Drive 


$225 
$159 











Star NX-1000, 144cps. $180 
Okidato 183 (135 col) $215 
Xotoc JR Interface $39) 


$249 
$49 
$59 


Star NB-2415 (135 col.) $649 
Micro RVD 10K Intte $59. 
Ketec GOLD Interface. $119 


Micro RID 2K Intfe 
Xotec SR Intertace 


gir SOORIES/POWER SUPPLIES — 


Epyx 800XJ Joystick SpoctraViedo Joystick $8 Drive/printer cable $9. 
C64 powor supply «$29 C128power supply $75 Amiga 00+ pwr sup, $99 
— MODEMS — 

61670 1200 (In Stock!) $78 Avatex 1200he $99. Avatex 12000 HC. $79 
Avatex 2400he $109 Pract Per 2400n¢ $199. Smartlink 2400he $189 





ED with our exclusive 10 day return/retund policy. 





will pay you$CASHS for your equipmentand 
accessories. Call for a price quote today, 
SCASHS in on your damaged equipment too) 
Authorized Dealer/Service Center tor Com- 
modore/Amiga, Atari ST/XL/XE computers and 


accessories 
& COMMODORE/AMIGA 
and ATARI ST/XL/XE 
Computers and Accessori 
















pe aa es) 





Orders/Questions: (303) 939-8144 Authorized Dealers for 



































GF 199 


KR 288 


PG 2198 


DR 220 


BD 238 
240 


250 
268 


278 


288 


298 
3088 


3108 


328 


3308 


348 
358 





360 


378 


389 
398 
400 





416 
426 


430 
440 


450 


HA 460 


HD 
FK 


4708 
480 


Gs 
= 


485 





RESSE43"; :GOSUB300:SA=A 
D:GOSUB1940:IF F THEN18 
6 


PRINT" {BLK} {2 SPACESJEN 
DING ADDRESSE43"; :GOSUB 
3001 EA=AD:GOSUB1030:1F 
{SPACE}F THEN190 
INPUT" {3 DOWN} (BLK}CLEA 
R WORKSPACE [Y¥/NJ]B43";A 
$:IP LEFT$(A$,1)<>"Y"TH 
EN220 
PRINT" (2 DOWN} {BLU} WORK 
ING...";:FORI=BS TO BS+ 
EA-SA+7:POKE I,@:NEXT:P 
RINT"DONE" 
PRINTTAB(16)"{2 DOWN) 
{BLK} (RVS} MLX COMMAND 
{SPACE}MENU [DOWN] B43": 
PRINT T$"{RVS}E(OFF}NTE 
R DATA" 
PRINT T$"(RVS}D[OFF) ISP 
LAY DATA":PRINT TS" 
{RVS}L{OPPJOAD PILE" 
PRINT T$"(RVS)S{OFP]AVE 
PILE":PRINT T$"(RVS}Q 
{orr}urT{2 Down) {BLK}" 
GET A$1IF A$=N§$ THEN250 
A=O:FOR I=] TO 5:1F AS= 
MID$("EDLSQ",I,1)THEN A 
=IsI=5 
NEXT:ON A GOT0420,619,6 
90, 700, 280:GOSUB1060:GO 
T0258 
PRINT" (RVS) QUIT "sINPU 
T"{DOWNJR49ARE YOU SURE 
CY/N]";AS:IF LEFTS(AS, 
1) <>"Y"THEN220 
POKE SD+24,0:END 
INS=N$ :AD=0 :INPUTINS :1F 
LEN( INS) <>4THENRETURN 
BS=IN$ :GOSUB320+AD=A:BS$ 
=MID$(IN$,3) :GOSUB320:A 
D=AD*256+A: RETURN 
A=O:FOR J=1 TO 2:A$=MID 
$(B$,J,1) :B=ASC(AS)-C4+ 
(A$>"@") *C7 :A=A*CO+B 
IF B<@ OR B>15 THEN AD= 
O:A=-1:d=2 
NEXT: RETURN 
B=INT(A/C6):PRINT MIDS( 
H$,B+1,1) ;:B=A-B*C6:PRI 
NT MIDS$(H$,B+1,1);:RETU 
RN 


A=INT(AD/26) :GOSUB350:A 
=AD~A*Z6 :GOSUB350 : PRINT 
Sent 

CK=INT(AD/Z6) :CK=AD-24* 
CK+25* (CK>Z7) 1GOTO390 
CK=CK*Z2+25* (CK>27) +A, 
CK=CK+25* (CK>Z5 ) :RETURN 
PRINT" (DOWNJSTARTING AT 
£43"; :GOSUB300:IF INS$<> 
N§ THEN GOSUB1O30:IF F 
(SPACE) THEN409 

RETURN 

PRINT" (RVS} ENTER DATA 
{SPACE ]":GOSUB400:IP IN 
$=N$_THEN226 

OPEN3, 3:PRINT 
POKE198, 0 :GOSUB360:1F F 
THEN PRINT INS :PRINT" 
{uP} (5 RIGHT}"; 

FOR I=6 TO 24 STEP 3:B$ 
=S$:FOR J=1 TO 2:1P PT 
HEN BS=MID$(INS,I+J,1) 
PRINT" (RVS}"BSL$;:1IF I< 
24THEN PRINT" (OFF)"; 
GET AS:IF AS=N$ THEN47@ 
IF (A$>"/"ANDAS<":")OR(A 
$>"@"ANDAS<"G" ) THENS48 
A=-(AS="M")-2*(AS=",")— 








cM 


Kc 


PM 


ac 


PK 


HO 


GQ 
QA 


KS 


FP 


HQ 


486 


487 


490 


500 


518 
520 


53 


) 


540 
558 


568 


578 


580 


598 


608 
618 


628 


6308 


648 


658 


660 
678 


680 
698 


788 
718 


728 


738 
746 





3*(AS=".")=4*(AS="/")=5 
*(AS="J")-6* (AS="K") 
A=A-7* (AS="L")-B*(A’ 
")-9* (AS="U" )-18* (a: 
apes CAE 
pe 
A=A-13*(AS$=S$):IF A THE 
N_AS$=MID$("ABCD123E456F 
®",A,1):GOTO 548 
IP AS=R§ AND((I=0)AND(J 
=1)OR F)THEN PRINT BS;: 
J=2:NEXT:I=24 :GOTO55B 
IF A$="{HOME)" THEN PRI 
NT BS :J=2:NEXT: 1=24 :NEX 
T:P=9:GOTO448 
IF (AS="(RIGHT}")ANDF TH 
RINT B$LS$;:GOTOS48 
IF A$<>L§ AND A§<>D§ OR 
((1#8) AND(J=1)) THEN GOS 
UB1966 :GOT0479 
AS=L$+S$+L$:PRINT BSLS; 
:J=2-3:IF J THEN PRINT 
(SPACE) L$; :I=I-3 
PRINT A$;:NEXT J:PRINT 
(SPACE}8$; 
NEXT I:PRINT: PRINT" {UP} 
(5 RIGHT)"; :INPUT#3,INS 
:IF INS=N$ THEN CLOSE3: 
GOTO228 
FOR I=l1 TO 25 STEP3:BS= 
MID$ (IN$,I) :GOSUB320:1F 
I<25 THEN GOSUB380:A(T 
/3)=A 
NEXT: IF A<>CK THEN GOSU 
B1060 :PRINT" {BLK} (RVS} 
{SPACEJERROR: REENTER L 
INE B43":F=1:GOT0440 
GOSUB1086:B=BS+AD-SA:FO 
R I=@ TO 7:POKE B+I,A(I 
) sNEXT 
AD=AD+8:IF AD>EA THEN C 





Hee 


*LOSE3 :PRINT" {DOWN } {BLU} 


** END OF ENTRY ** {BLK} 
{2 DOWN) ":GOTO700 

P= :GOTO449 
PRINT" {CLR} {DOWN} {RVS} 
(SPACE) DISPLAY DATA ":G 
OSUB4@0:IP INS=N§$ THEN2 
26 
PRINT" {DOWN} (BLU) PRESS: 
{RVS)SPACE{OPF) TO PAU 
SE, {RVS}RETURN(OFF} TO 
BREAKE43 (DOWN) " 
GOSUB368 :B=BS+AD-SArFOR 
I=BTO B+7:A=PEEK(I) :GOS 
UB358:GOSUB380:PRINT S$ 


NEXT: PRINT" {RVS}";sA=CK 
2GOSUB350 :PRINT 
F=]:AD*AD+8:IF AD>EA TH 
ENPRINT" {DOWN} {BLU} ** E 
ND OF DATA **":GOTO226 
GET A$tIF A$=R$ THEN GO 
SUB1980:GOTO228 

IF AS=S$ THEN F=F+1:GOS 
UB1980 

ONFGOTO635, 668,630 
PRINT" (DOWN}{RVS} LOAD 
{SPACE}DATA “:0P=1:GOTO 


716 

PRINT" {DOWN} {RVS} SAVE 
{SPACE]PILE ":0P= 
INS=N$ s INPUT" {DOWN} PILE 
NAMER43";INS:IF INS=N$ 


THEN226 

veo RETA (DOW) LB 
{RVS}T{OFFJAPE OR (RVS} 
D{OFFJISK: £43"; 

GET A$sIP A$="T"THEN PR 
INT"T[ DOWN} ":GOTOBBD 
IF A$<>"D"THEN738 





DP 


pp 


FE 


3 


758 


768 
778 


788 


798 
8o0 


818 
828 


838 


849 
B58 


869 


878 
880 


898 


908 


918 


920 
9308 


9408 


955 


968 


978 


986 


995 


1008 
1918 


1826 


1938 
1848 


715, "I@:":B=EA-SA:INS=" 
O:"+INS$:IF OP THENS19 
OPEN 1,6,8,INS+",P,W":G 
OSUB860:IF A THEN220 
AH=INT(SA/256) :AL@SA-(A 
H*256) :PRINT#1,CHRS§ (AL) 
7CHR$ (AH); 

FOR I=8 TO B:PRINT#1,CH 
R$(PEEK(BS+I));:IF ST T 
HENBOO 

NEXT:CLOSE1 :CLOSE15:GOT 
0940 

GOSUB1960:PRINT" (DOWN) 
{BLK}ERROR DURING SAVE: 
£43" :GOSUB869 :GOTO220 
OPEN 1,8,8,INS+",P,R":G 
OSUBS860:IF A THEN220 
GET#1,A$,B$ sAD=ASC(A$+2, 
$)+256*ASC(BS+Z$):IF AD 
<>SA THEN F=1:GOTO853 
FOR I=@ TO B:GET#1,A$:P 
OKE BS+I,ASC(A$+Z$) :IF( 
I<>B)AND ST THEN F=2;AD 
=I:I=B 

NEXT:IF ST<>64 THEN F=3 
CLOSE] :CLOSE15:0N ABS(F 
>8)+1 GOTO968, 976 
INPUT#15,A,AS:IP A THEN 
CLOSE1 :CLOSE15 :GOSUB1 
60:PRINT"(RVSJERROR: “A 
$ 

RETURN 

POKE183, PEEK(FA+2) :POKE 
187,PEEK(FA+3) :POKE188, 
PEEK (FA+4) : IFOP=OTHENS2 


sprig arg: | 





t) 

SYS 63466:IF(PEEK(783)A 
ND1)THEN GOSUB1060:PRIN, 
T"(DOWN}{RVS} FILE NOT 
{SPACEJFOUND ":GOTO696 
AD=PEEK (829) +256*PEEK(8 
30):IF AD<>SA THEN F=1: 
GoTo978 
A=PEEK(831)+256*PEEK( 83 
2)-1:F=F-2* (A<EA)~3* (A> 
EA) sAD=A-AD:GOTO9390 
A=SA:B=EA+1:GOSUB1616:P 
OKE780,3:SYS 63338 
A=BS:B=BS+(EA-SA)+1:GOS 
UB1610:0N OP GOTO958:SY 
S 63591 
GOSUB1680:PRINT" {BLU} ** 
SAVE COMPLETED **";GOT 
0220 

POKE147,0:SYS 63562:1F 
{SPACE}ST>® THEN970 
GOSUB1@86:PRINT" {BLU} ** 
LOAD COMPLETED **";:GOT 


0220 
GOSUB1060:PRINT" {BLK} 
{RVSJERROR DURING LOAD: 
{DOWN )£43":ON F GOSUB98 
6,998, 1000:GOTO220 
PRINT" INCORRECT STARTIN, 
G ADDRESS (";:GOSUB366: 
PRINT") “: RETURN 
PRINT"LOAD ENDED AT "7: 
AD=SA+AD: GOSUB360: PRINT 
D§ : RETURN 

PRINT "TRUNCATED AT END 
ING ADDRESS": RETURN 
AH=INT(A/256) :AL=A-(AH 
*256) :POKE193,AL: POKEL 
94, AH 

AH=INT(B/256) :AL=B-(AH 
#256) :POKE174,AL: POKEL 
75, AH: RETURN 

IF AD<SA OR AD>EA THEN 
1058 

IF (AD?511 AND AD<49968 

eee Ee 
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SFX SOUND EXPANDER 


SFX SOUND EXPANDER $180.00 
A nine voice programmable synthesizer module using FM 
technology to generate professional quality sounds, Includes 
basic software and audio connector cable. MIDI compatible with 
suitable interface. 


SFX FULL SIZED KEYBOARD $145.50 
A five octave synthesizer style key board which plugs into the 
Sound Expander module 


SFX FM COMPOSER AND SOUND EDITOR $ 45.50 
The software to got the most out of the SFX Sound Expander! 
Nine channel sequencer and voice editor programs allow you to 


write, alter, store and playback music and to create custom 
sounds which you can store for use in your music. 


SFX SOUND SAMPLER 


SFX SOUND SAMPLER: $127.00 
Record sounds digitally and play them back higher or lower in 
pitch, edit them, display the waveform, work with up to four 
samples at once, use as a real time echo or pitch shifter. 


FEARN & MUSIC 
519 W. Taylor #114, Santa Maria, CA 93454 
Phone 805-925-6682 
1-800-447-3434 
(OEALER INQUIRIES INVITED) 








ha aa ra a | 


poecessssses= 


FACTORY AUTHORIZED 


COMMODORE REPAIR CENTER 
1-800-772-7289 


(312) 879-2888 IL 
C64 Repair eon . 42.95 
C128 Repalr aon. 64.95 
1541 Permanent 
Alignment . 
1541 Repalr 
1571 Repair . 


Amiga Repair 

(BOM oe eee ee ee 99.95 
Amiga Drive 

Repalr 
Printers . 
+ 79.95 monitors 
. 79.95 Other Equip: 


CALL BEFORE SHIPPING 
PARTS AND LABOR INCLUDED 
FREE RETURN SHIPPING 
{APO, FPO, AIR ADD $10.00) 

24-48 HR. TURNAROUND 
(Subject to Parts Availability) 

30 DAY WARRANTY ON ALL REPAIRS 





. 29.95 





COMMODORE PART: 


C-64 Power Supply . ap 
128 Power Supply 
C-64 Over Voltage Sensor . 
Other Parts 








{Plus $3.00 Shipping/Handiing} 
All parts for Commodore equipment usually In stock 
For Parts Call (312) 879-2350 
Dealer Discounts Available 


TEKTONICS PLUS, INC. ee 


150 HOUSTON STREET 


Jara) 
BATAVIA, IL 60510 i: 





CUP AND SAVE 


Lo 








Scoring Summa 

Win Lass Record Home/Away 

Division Standin, 

Stats — Accumulated & Average 
By Week ast 


Record vs Com 
Individual Tea mht 
Printed Cop) All 
198; ita Ba 


351 ata Base 
Lee rs 
iB MORE. 
Invited 


ANI 
Dealer Inquiri 


op 
Match-U, 
ll Screens 


nents 





A Complete Pro Football 
fe Prediction Program For The 
1988 NFL SEASON 


* IBM, Tandy & Compatibles 
* Commodore 64 ~ 128 
* Apple I+ — tlc — tle ~ Iigs 


Stats Needed To Run Program Available In 

Local Newspapers Or We Will Furnish All Stats 
By 1st Class Mail. Season Price 40°. 

Our Bulletin Board Will Furnish All Stats, Lines, 
Predictions and Trends Updated Daily. Season 
Price 55°°. Program Comes Updated Thru Current 
Week of Season . . . No Extra Charge. 


HONE UNS OPEN 34 
PHONE LINES OPEN 24 HRS, 
ADD 3” SHIPPING ‘E HANDLING 


TOLL FREE — 800-722-2277 | 
INFORMATION — 214-586-8212 
a Marattion Sortware Dept. 2 
: (oom) Pe monies en Ca norrice 
NG) JACKSONVILLE, TEXAS 75766 
TOLL FREE FOR ORDERS ONLY. 





)OR(AD>49151 AND AD<53 
248) THEN GOSUB1980:F=0 


+ RETURN 


HC 1056 GOSUB1660:PRINT"(RVS} 
{SPACE} INVALID ADDRESS 
{ DOWN) (BLK}":F=1:RETU 
RN 


AR 1660 


4,33 
DX 1078 
TO1898 
PF 1088 


1,98:POKE SD+4,17 
AC 1098 


KE SD+1,0:RETURN 


128 


AE 106 
DIM NLS,A(7) 
xP 116 
56: 
627) :EA=65280 





FB 126 


(32) :LE$=CHRS (157) 
KE 130 


256*PEEK(A+1) 
KEY 1,"A 
Gyre! 


JB 146 





FJ 159 


4,15:COLOR 6,15 
GQ 168 


{BLU}" 


FE 179 PRINT"{2 DOWN} 


{2 DowN}" 
DK 180 


SE 180 
FH 190 
DING ADDRESS{4}" 


LSE 190 
MF 206 


¥" THEN 220 
QH 216 


ONE" 





{OFF}OAD FILE" 


HB 236 


POKE SD+5,31:POKE SD+6 
1208:POKE SD,248:POKE 
{SPACE]}SD+1,4:POKE SD+ 


FOR S=1 TO 100:NEXT:GO 


POKE SD+5,8:POKE SD+6, 
248:POKE SD,@:POKE SD+ 





FOR S=1 TO 106:NEXT:PO 
KE SD+4,0:POKE SD,6:PO 


Program 2: MLX For Commodore 


TRAP 960:POKE 4627,128: 


%2"2224=254:25=255:2682 
72127 BS =256* PEEK (4 


BES=CHRS (7) :RTS=CHRS (13 
) :DLS=CHR§ (28) ; SPS=CHRS 


DEF FNHB(A)=INT(A/256) : 
DEF FNLB(A)=A-FNHB (A) *2 
56:DEF ENAD(A) =PEEK(A) + 





:IF RGR(G@)=5 THEN PAST 
PRINT" {CLR} "CHRS (142) ;C 
HRS (8) :COLOR G,15:COLOR 


PRINT TAB(12) "{RED} 
{RVS}12 SPACES}{9 @> 

{2 SPACES)"RTS;TAB(12)" 
{RVS}12 SPACES}{OFF} 
{BLU} 128 MLX {RED} 
{RVS}{2 SPACES}"RTS;TAB 
(12) "{RVS}{13 SPACES} 


{3 SPACES}COMPUTE!'S MA. 
CHINE LANGUAGE EDITOR 

PRINT" {BLK}STARTING ADD 
RESS{4}";:GOSUB 260: 1F 
{SPACE}AD THEN SA=AD:EL 


PRINT"{BLK}{2 SPACES}EN 
8 





260:IF AD THEN BAsAD:E. 


PRINT" {DOWN} {BLK }CLEAR 
(SPACE}WORKSPACE [Y/N]? 
{4} ":GETKEY AGzIF AS<>" 


PRINT" {DOWN} {BLU }WORKIN 
G...";:BANK G:FOR A=BS 
{SPACE}TO BS+(EA-SA) +7: 
POKE A,G:NEXT A:PRINT"D 


PRINT TAB(16)"{ DOWN} 

{BLK}{RVS} MLX COMMAND 
{SPACE}MENU 44}{DOWN) "= 
PRINT TAB(13) "{RVS}E 

{OFFJNTER DATA"RTS; TAB ( 
13) "{RVS}D{OFF}ISPLAY D 
ATA"RTS; TAB (13) "{RVS }L. 


PRINT TAB(13)"{RVS}S 
{OFE}JAVE FILE"RTS$;TAB(1 





AP 


Sx 


BG 


PP 


MA 


PM 
SQ 
RD 
DD 


AH 
QD 


JA 


BR 


QA 


PS 


RC 


ac 


QB 


FB 


RD 


xB 


oP 


PS 


GB 


HA 


DP 


BA 


AR 


248 


250 


268 
276 


280 
298 


300 


316 


320 


330 
348 


350 


360 


376 


388 


390 


400 


410 


426 


430 


440 


450 


460 


4768 


480 


510 


3) "{RVS}C{OFF}ATALOG DI 
SK"RT$;TAB(13) "{RVS}Q 
(OFF }UIT{DOWN}{BLK}" 
GETKEY A$:A=INSTR("EDLS 
CQ",AS):ON A GOTO 340,5 
50,640,650,930,940:GOSU 
B 956:GOTO 240 
PRINT"STARTING AT"; :GOS 
UB 260: IF (AD<>G)OR (AS=N 
L$) THEN RETURN:ELSE 250 
AS=NLS:INPUT AS:IF LEN( 
AS)=4 THEN AD=DEC(AS) 
IF AD=G THEN BEGIN:IF A 
§<>NL§ THEN 300:ELSE RE 
‘TURN? BEND 

IF AD<SA OR AD>EA THEN 
{SPACE}300 

IF AD>511 AND AD<65280 
{SPACE} THEN PRINT BES;: 
RETURN 

GOSUB 950:PRINT"{RVS} TI 
NVALID ADDRESS {DOWN} 
{BLK}"sAD=0:RETURN 
CK=ENHB(AD) :CK=AD-24*CK 
+25*(CK>2Z7)2GOTO 330 
CK=CK*Z2+25* (CK>27) +A 
CK=CK+25* (CK>Z5) RETURN 
PRINT BES;"{RVS} ENTER 
{SPACE}DATA ":GOSUB 258 
TIF AS=NL$ THEN 226 
BANK @:PRINT:F=0:0PEN 3 








3 

, 

GOSUB 310:PRINT HEX$(AD 
: F F THEN PRINT 
{SPACE}LS: PRINT" {UP} 

{5 RIGHT}"; 

FOR I=@ TO 24 STEP 3:B$ 
=SP$:FOR J=l T0 2:1F EF 
{SPACE} THEN BS=MID$(LS, 
I+J,1) 
PRINT" {RVS} "BS+LFS; :1F 
{SPACE}1<24 THEN PRINT" 
(OFE}"; 

GETKEY AS:IF (A$>"/" AN 
D AS<":") OR(AS>"@" AND 
AS<"G") THEN 470 

IF AS="+" THEN AS="E":G 














THEN AS$="E":G 





IF A$=RT§ AND ((I=G) AN 
D (J=1) OR F) THEN PRIN 
T BS;:da2:NEXT:1=24:GOT 
0 486 

IF A§="{HOME)" THEN PRI 
NT B$:d=2:NEXT:1=24:NEX 
T:F=0:GOTO 360 

IF (A$="{RIGHT}") AND F 
THEN PRINT BS+LE$;:GOT 
0 470 

IF AG<>LE§ AND AS$<>DLS$ 
{SPACE}OR ((I#0) AND (J 
=1)) THEN GOSUB 950:GOT 
0 390 
AS=LFS+5PS+LE9:PRINT BS 
+LES;:d=2-J3:1F J THEN P 
RINT LFS; :I=1-3 

PRINT AS;:NEXT J:PRINT 
{SPACE} SPS; 

NEXT I: PRINT: PRINT" {UP} 
{5 RIGHT)"; :L8=" 

{27 SPACES}" 

FOR I=l TO 25 STEP 3:GE 
1#3,A$,BS9:1F AS=SPS§ THE 
N 1=25:NEXT:CLOSE 3:GOT 
0 226 
AS=AS+B$:A=DEC (A$) :MIDS. 
(L$,1,2)sA$:IF I<25 THE 
N GOSUB 326:A(1/3)=A:GE 
T#3,AS 

NEXT I:IF A<>CK THEN GO 

















DX 


xB 
cA 


MC 


oF 


XA 
bg 


sQ 


SP 


EH 


JH 


MC 


ED 


520 


538 
540 


55) 


560 


578 
588 


590 


698 


619 
620 
630 
640 


658 
668 


665 
670 


680 


698 


708 


718 


720 


738 


748 


758 


766 





SUB 950:PRINT: PRINT" 
{RVS} ERROR: REENTER LI 
NE ":F=1:GOTO 368 

PRINT BES$:B=BS+AD-SA:EFO 
R I=0 TO 7:POKE B+I,A(I 
) NEXT T 
E=G:AD=AD+8: IF AD<=EA T. 
HEN 360 

CLOSE 3:PRINT" {DOWN} 
{BLU}** END OF ENTRY ** 
{BLK}{2 DOWN}":GOTO 650 
PRINT BES; "{CLR} {DOWN} 
{RVS} DISPLAY DATA ":GO 
SUB 250:IF AS=NLS THEN 


{SPACE}220 
BANK @: PRINT" {DOWN} 
{BLU}PRESS: {RVS}SPACE 


{OFF} TO PAUSE, {RVS)RE 
TURN{OFF} TO BREAK{4} 
{DOWN }" 

PRINT HEX$(AD)+ i 
UB 310:B=BS+AD-SA 
FOR I=B TO B+7:A=PEEK(I 
) PRINT RIGHTS (HEX$ (A), 
2);S5P$;:GOSUB 326:NEXT 
{SPACE}T 

PRINT" {RVS)"; RIGHTS (HEX 
$(CK) ,2) 

F=1:AD=AD+8:IF AD>EA TH 
EN PRINT"{BLU}** END OF 
DATA **":GOTO 226 

GET A$:IF A$=RTS THEN P 
RINT BE$:GOTO 226 

IF AS=SP$ THEN F=F+1:PR 
INT BES; 

ON F GOTO 570,610,570 
PRINT BES"{DOWN}{RVS} L 
OAD DATA ":0P=1:GOTO 66 
g 


:GOS 





PRINT BE$"{DOWN}{RVS} S 
AVE FILE ":0P=6 
P=@:ES=NLS$: INPUT"FILENA 
ME{4}";ES:1F FS=NL$ THE 
N 220 
IF LEN(ES)>14 THEN 660 
PRINT" {DOWN } {BLK} (RVS}T 
{OFF}APE OR {RVS}D{OFF} 
ISK: {43"; 
GETKEY A$:IF AS="T" THE 
N 850:ELSE IF AS<>"D" T 
HEN 680 
PRINT"DISK{DOWN} "IE OP. 
THEN 760 
DOPEN#L, (FS+",P") »WrIE 
{SPACE}DS THEN AS=D$:GO 
TO 740 
BANK @:POKE BS-2,FNLB(S 
A) :POKE BS-1,FNHB(SA):P 
RINT"SAVING ";F$:PRINT 
FOR A=BS-2 TO BS+EA-SA: 
PRINT#1,CHR§ (PEEK (A)) 7% 
IF ST THEN AS="DISK WRI 
TE ERROR":GOTO 750 
NEXT A:CLOSE 1:PRINT" 
{BLU}** SAVE COMPLETED 
{SPACE}WITHOUT ERRORS * 
*":GOTO 220 
IP DS=63 THEN BEGIN:CLO 
SE 1:INPUT"{BLK}REPLACE 
EXISTING FILE (Y/N) {4} 
"ZAS:IEF AS="¥" THEN SCR 
ATCH (E$):PRINT:GOTO 708 
?ELSE PRINT" {BLK}":GOTO 
660:BEND 
CLOSE 1:GOSUB 950: PRINT 
"{BLK}{RVS} ERROR DURIN 
G SAVE: {4}":PRINT A$:G 
oro 226 
DOPENEL, (FS+",P 
THEN AS=DSS:F=4: 
{SPACE}1:GOTO 790 
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PX 


KB 


RQ 


ER 


FP 
KS 


FG 


AB 


cP 


GQ 


Pie) 


xB 


ce 


JE 
AE 


MK 
Ko 
DQ 


778 


788 


796 


808 


810 


820 
830 


840 
850 


860 


878 


900 


9190 


9290 


930 


949 


950 
960 


970 
980 
996 


GET#1,A$,B$:CLOSE 1:AD= 
ASC(A$)+256*ASC(BS):IF 
{SPACEJAD<>SA THEN P=1: 
GOTO 796 

PRINT"LOADING ";F$:PRIN 
T:BLOAD(F$),86,P(BS) :AD 
=SA+FNAD(174)-BS-1:F=-2 
*(AD<EA)-3*(AD>EA) 

IF F THEN 800:ELSE PRIN 
‘T"({BLU}** LOAD COMPLETE 
D WITHOUT ERRORS **":GO 
TO 220 

GOSUB 950:PRINT" {BLK} 
(RVS} ERROR DURING LOAD. 
1 £43":ON F GOSUB 810,8 
28,830, 848:GOTO220 
PRINT" INCORRECT STARTIN 
G ADDRESS (";HEX$(AD);" 
) "RETURN 

PRINT"LOAD ENDED AT ";H 
EX$(AD) RETURN 
PRINT"TRUNCATED AT ENDI 
NG ADDRESS ("HEX$(EA)") 
"sRETURN 

PRINT"DISK ERROR ";A$:R 
ETURN 

PRINT "TAPE"; AD=POINTER( 
P$):BANK 1:A=PEEK(AD) :A 
L=PEEK(AD+1) :AH=PEEK(AD 
42) 

BANK 15:SYS DEC("FF68") 
+@,1:SYS DEC("FFBA"),1, 
1,0:SYS DEC("PFBD"),A,A 
L,AH:SYS DEC("FF90"),12 
8:IF OP THEN 890 

PRINT: A=SA1B=EA+] sGOSUB 
920:SYS DEC("E919"),3: 
PRINT"SAVING ";FS 
A=BS:B=BS+(EA-SA)+1:GOS 
UB 926:SYS DEC("EA18"): 
PRINT" (DOWN) (BLU}** TAP 
E SAVE COMPLETED **":GO 
TO 220 

SYS DEC("E99A"):PRINT:I 
F PEEK(2816)=5 THEN GOS 
UB 950:PRINT" {DOWN} 
(BLK) {RVS} FILE NOT FOU 
ND "sGoTO 220 
PRINT"LOADING ... {DOWN} 
"SAD=ENAD (2817) IP AD<> 
SA THEN F=1:GOTO 860:5L 
SE AD=FNAD(2819)-1:F=-2 
* (AD<EA) -3* (AD>EA) 
A=BS:B=BS+(EA-SA)+1:GOS 
UB 920:SYS DEC("E9FB"): 
IF STG THEN 800:ELSE 7 
96 
POKE193 , FNLB(A) : POKE194 
+PNHB(A):POKE 174,ENLB( 
B):POKE 175,FNHB(B) :RET 
URN 

CATALOG: PRINT" {DOWN} 
{BLU}** PRESS ANY KEY F 
OR MENU **":GETKEY AS$:G 
oro 229 

PRINT BES"{RVS} QUIT 
{4}";RTS;"ARE YOU SURE 
{SPACE} (¥/N]?":GETKEY A 
$:IF AS<>"Y" THEN 220:E 
LSE PRINT" {CLR}":BANK 1 
5: END 

SOUND 1,560,10:RETURN 
IF ER*14 AND EL=266 THE 
N RESUME 300 

IF ER=14 AND EL=506 THE 
N RESUME NEXT 

IF ER=4 AND EL=783 THEN 
P=4:AS=DSS:RESUME 860 
IF ER=36 THEN RESUME:EL 
SE PRINT ERRS(ER);" ERR 
OR IN LINE";EL @ 

















COLOR RIBBONS & PAPER 


COLOR RED, 
RIBBONS — BROWN, 


Ribbons Price Each 
























BLUE, GREEN, 
PURPLE, YELLOW, 


Black | Color 































Apple Imagewriter Ill 3,75 
Citizen 120 D 5.00 | 6.00 | 7.95 
Commodore MPS 801 4.15 | 4.75 | 5.75 
Commodore MPS 802 6.00} 6.75 | - 

Commodore MPS 803 4.95 | 5.95 | 7.00 
Commodore MPS 1000 | 3.95 | 4.95 | 6.75 
Commodore MPS 1200 | 5.00 | 6,00 | 7,95 


Commodore 1525 6.00} — - 
Okidata 82/92/93 1.75 | 2.25 | 4.50 
Okidata 182/192 6.50 | 7.50] - 





Panasonic KX:P 1090 6.75 | 7.75 | - 

Seikosha SP 800/1000 | 5,25 | 6.50 | 7.95 
Star SG 10 1.75 | 2.25 | 4.50 
Star NXIO/NLIO 5.00 | 6.00 | 7.95 











COLOR PAPER 
BRIGHT PACK ~200 Sheets/50 each color: Red, 
Blue, Green, Yellow. 9 1/2 x 11 ~ $10.90/pk. 


PASTEL PACK ~200 Sheets/50 each color: Pink, 
Yellow, Blue, Ivory. 9 1/2 X 11 — $10.90/pk 


T-SHIRT RIBBONS (Heat Transfer) — Call For Price. 


COLOR DISKETTES: 
5 1/4” DS/DD Rainbow Pack. 10/pack ~ $12.50 








ibbons & paper not listed above, call for price & 
Price & spec. subject to change w/o notice. Min. 
$25,00. Min, S & H $3.50. Add $2.25 C.0.0. 
add'l, IL res. add 6.25% tax. MC & Visa accepted. 


RENCO COMPUTER PRINTER SUPPLIES 
P.O. Box 475, Manteno, IL 60950 U.S.A. 
1-800-522-6922 ¢ (IL) 1-800-356-9981 

815-468-8081 























GREENSBORO 
COMPUTER 
CENTER 


AN AUTHORIZED 
COMMODORE REPAIR CENTER 


72-HOUR TURNAROUND 
FOR MOST COMPUTERS 


C64. 
C128 
1541 

1541 and 1571 








1571 ., 
A1000 . $45, 00 bre 
(plus pa 
CBM PRINTERS .........+. $45.00 
(plus ee 


FOR OTHER PRICING CALL! 
Please enclose $7.50 for return shipping. 


All repairs come with a 30-day warranty 
and we tusreriies the entire patty to 

Ronen ice just the repaired section, 
POWER SUPPLIES ARE NOT INCLUDED 
IN THE ABOVE PRICING AND ARE PUR- 
CHASED SEPARATELY. 

If you have any questions about our 
services, please call me at 919-855-5792. 
Thank you. 


1109 S, Chapman St. 
Greensboro, NC 27403 








HIGHLAND DISKETTES 
Manufactured by 3M 


Economical diskatte backed by 3M's 
teputation for quality and reliability 
Polished media suriace for consistent 
Feasiaieseiaaunce 
Precision punched center hole for perfect 
Pea eee one 
cipfind il neste 
cahonietie {hte | 
5-1/4" Diskettes 
SAVE 35% om ust price 


(1082x) Mn 100 disks. Discount at 300 cake 

SAH--Continental USA: $4.00, frat 100 or fewwr 

tks; pls $3.00 wach succeeding 100 oF fewer 

Foreign Orders-APO/FPO, please cal Mi Row 

ants add 4% tax COD (addi $4.00), payment mth 

cash, carted check of money order 

Proes subject to change 
FREE CATALOG WITH ORDER 

Complete line of quality supplies 

for your computer 


Order Toll Free 1-800-258-0028 
In Michigan 1-800-632-2468 
Rush by FAX (616) 452-3457 

Foreign Inquiries Invited 


Michigan 1-800 632-2468 


Precision Data Products 

P.O. Box 8367. Grand Rapics, Mi 49518 
r (636) 452.3457 « FAX (616) €52 

Outside Michigan 1-800-258-0028 








DUST COVERS 


SATISFACTION GUARANTEED 
oe CUSTOM MADE TO FIT 

ok HEAVY 3201, VINYL ANTLSTATIC 
‘te EXTENDS EQUIPMENT LIFE 

1 Cheice of Colors Light Tan or Brown 











COMPUTERS PRINTERS 
C-64/Plus -64C .... B. Seikosha SP-1000 .....19,00 
ci20 13,00 Comrex 220 13,00, 
Fea tee $5.00 C'ltoh 8510 13,00 
Amiga 1 13,00 Juki 5510 12,00 
Wf ‘Men. Stocked) os besa hir? 19,00 
on Epion 3X 80 13,00 
Avon’ B00K, 130KE 10.00 Epien 1 A8/105 «13.00 
‘Atori_ 520 ST 14.00 13.00 
1BM PC/XT 28,00 oie nt 10 Pe 
IBM $051 Keyboord 8.00, 
{Dimensions Required Gemini 10.8 Stor 10's 13.00 
for IBM Clones) Gemini 15 & Stor 15's 16.00, 
eae; ‘Avori 1027, 13,00 
- MONrTORS 
See se Tbe boo Atari SC 1224RGB_ 19,00 
‘Amigo 5" D/Dry 9.00 ©1702, BMC Coler..18.00 
Indvit GT, MSO $0-1 8.00 © Use faa 19.00 
M30 $02 10100 Amdek 19.00 
Enhancer 2000 900 ordi (e182) 19.00 
FS0.1 8.00 C-1902A/Mognwx 40 19.00 
rer! 1050 S00 NEC (State Model) 19.00 
Mognavox 80 RGB 19,00 
PRINTERS Princeton (Stole Model 19,00, 
€-1525/MPS 801 .....10.00Thompton CM 365-66 19.00 
15 13,00 Toxan (Stole Model) 19.00 
8,00 Sekata $C-100 19,00 





13,00 Zenith (State Model) 19.00 
Okidota 120/192 ... 13.00 00 
Okimate 10/20 ..... 8.00 
Epton MX/FX/RX80.. 13.00 qu 
Epton (XB0/C-1000, 13.00 including clock cut-out 
Order by stoting MAKE, MODEL and COLOR CHOICE TAN er BROWN with 
check or maney order plus $1.50 per item ($4.50 max.) shiping end handling 
Celt Res. lnclode 6° + lecl tx. APO, 200/tem, Foreign 300/item 
SPECIAL COVERS WILL BE MADE TO YOUR 
DIMENSIONS. SEND YOUR REQUIREMENTS 
FOR OUR LOW PRICE QUOTES, 


Crown Custom Covers 
24621 PAIGE CIRCLE DEPT. A 


LAGUNA HILLS, CA 92653 
(714) 472-6362 














ULTRABYTE 


Ca V5.0 ask 


NIBBLER 


NIBBLE COPIER WITH 205 PARAMETERS 
FOR COMMODORE 64 AND 128 


© Copies most protected disks in 2 minutes without 
need for parameters including rapid-locked 


© 205 parameters to make unprotected copies of recent 
programs: including VMAX protection. 
end stamped envelope for list 


© Copies up to 40 tracks using 1 or 2 1541 or 1571 
drives, Copies both sides on 1571 


© Copies itself (for this reason, no refunds given) 


V5.0 $29.95 PLUS $4.00 SHIPPING 


Also available: 

. Disk Surgeon V2.0 -- new disk utility .. $10.00 
. Ultramail - maillist and labels...... «| both for 
Handy-Capper ~ race handicapper. .{ $10.00 
. McMurphy's Mansion -- text adventure. ,.,) both for 
Soluware ~ solutions to 10 adventures. . . $10.00 

. 150 older parameters and file copier 
Add $4.00 shipping (covers up to 5 items) 


Mastercard, Visa, Check or M.O., Calif. add 6.5% ($1.85) sales tax. 
Foreign orders/COD add $2.00. Payment must be in U.S. funds 


UPDATES - Return original Ultrabyte disk with $15.00 plus $4.00 
shipping. Foreign add $2.00. No exceptions. 


To order, write or call 24 hr. order line. For info. write, 
ULTRABYTE (818) 796-0576 
P.O. Box 789 LaCanada, CA 91011 USA 





COMMODORE <= => IBM MS-DOS 
File Transfer Utility 


BIG BLUE READER 128/64 


If you have the Commodore 128 or 64, and the 
1571/1581 disk drive, you can read from and write to 
IBM PC compatible MS-DOS files using BIG BLUE 
READER 128/64, The program quickly and easily 
transfers Commodore and IBM word processing, 
text and ASCII files. 


* BBR 128 transfers files between Commodore 128/64, MS:D0S 
and C128 CPIM diskettes on both Commodore 1571 and 1581 
disk drives. 

BBA 64 requires the Commodore 1571 and transters files bet 
ween Commodore 64/128 and 8M MS.DOS diskettes 

Optional Commodore ASCII to standard ASCII translation, 

Both programs are easy to use and fully menu driven 

Can be used as a standard Commodore 128/64 file copy. pro: 
gram, transfer files between: 1541/1571/1581 disks, 


The Big Blue Reader 128/64 package is only $44.95 


Ih check, money order or C.0.D, All orders must be in W'S, dollars 
5, COO & foreign orders dd $3.00 
ailable 10 current BBR users for $18 plus your Orginal disk 

219) 724-3900 Wate for mote information in UK Tel (0905) 611463, 


CLs 


SOGWAP Software 
115 Bellmont Road; Decatur IN 46733; (219) 724-3900 











COMPLETE SPEED-UP SOLUTION 
FOR YOUR C64! 





TURBO MASTER CPU™ 
4,09 MHz Accelerator Cartridge for C64 


* Four times faster processing speed combined with five times 
faster disk Load and Save. 

* Easy-to-use cartridge simply plugs in. 

* Software actually runs four times as fast. Basic, wordprocessor 
scrolling, other productivity, assemblers, graphics, GEOS, eto. 
Compatible with most software. 

* On-board 65C02 microprocessor, 64K RAM, 32K EPROM. 

* Introductory price only $179 including shipping in USA. Visa and 
Mastercard accepted, 


SCHNEDLER SYSTEMS 
25 Eastwood Road, Dept. G8, P.O. Box 5964 
Asheville, NC 28813 
Information/Telephone Orders (704) 274-4646 


Dealer inquires invited, 








POWERFUL LOW COST CONTROL 


Data acquisition and control interfaces. 
C84 & C128 

B0.Line Simplified Digital !O Board. 40 TTL Input lines, 40 
high current switched output lines. ROM cartridge socket. 
Order mode! SS100 Plus, $129. Additional boards $119. 
Original Ultimate Interface. Dual 6522 VIA Board, Four &-bit 
ports with handshake, timers, IRQ, etc. Expandable. Order 
Model 641F 22, $169, Additional boards $149, 
AID Conversion Module, 16 channels, &-bits, requires above. 
Order Model 641F/ADCO0816. $69. 
Manuals on above available seperately for examination 
Call or write for detailed brochure. 


DAM eer ST Ate eh ee nat 
SERIOUS ABOUT PROGRAMMING? 


Symbol Master Multi‘Pass Symbolic Dissembler. Learn to 
program like the experts! For both C64 and native C128." 
unmatched by simpler monitor disassemblers. . . a real gold 
mine for the experienced ML programmer,” Computer 
Shopper, April’ 87. $49.95, 

PTD 6510 Symbolic Debugger. An extremely powerful tool 
with capabilities far beyond a machine language monitor. 
For C64, $49.95 

MAE64 Assembler. Fully Professional 6502/ 65C02 macro 
editor assembler $29.95, 

C64 Source Code Book. Most complete available 
reconstructed and commented assembly language source 
code listing for Basic and Kernal ROMS. $29.95. 


SCHNEDLER SYSTEMS 
25 Eastwood Rd., Dept. G8, P.O. Box 5964 
Asheville, NC 28813 
Information/Telephone Orders (704) 274-4646 


All prices include shipping prepaid USA 




















So you can code circles around the pros, 
eh? Well, here's your chance to prove it. It's 
the GEOS Programming Contest. And all it 
takes to win is a Commodore and your skill 
at programming under GEOS to win in any 
four categories and walk away with all kinds 
of prize: 

Including a check for $1,000, 

Just send us the GEOS-based program 














applications from Berkeley Softwork: 
+ Commodore peripherals: 1670 1200 Baud 
Modem, 1351 Mouse and 1764 or 1750 RAM 
pansion Module 
x month subscription to Q-Link, the tele- 
ions service and Q-Link’s Pub- 
lic Domain Software Library from 
Quantum Computer Services 
+ ‘Twelve month subscription to Compute!'s 














the staff of 





Judging will be performed 
1» Computel’s Gazette Magazin 
decisions of the judges are final in all r 
includes decisions regarding creativity, simila 
among entries and general suitabilit 
Entries become the property of Berkley 
oftworks, which reserves th 
or publish all entries rec 
of “shareware” library to 
eley Softworks, Computel’s Ga 
‘As part of each 


















YOU WRITE THE PROGRAM, 
WE'LL WRITE THE CHECKS. 





you're most proud of—on 
disk—by August 31, 1988, 
‘There are four c 
each with an Appl ind Desk Acce 
ties? winner. Which means that there a 
eight first prizes. Eight second pri 
eight thirds, 

And each prize consis! 
prizes, 

We may not be the only 
ones Siting checks. 

And that’s only where the bucks start. 
Be f your program makes it into a 
GEOS Shareware Library, all kinds of sati 
fied users may be writing you che 

So boot up and get down to pumping out 
your most professional GEOS program. 
‘Then send it in with the information required 
below, Who knows? We could be sending a 
check right back to you, 
1, Applications are identified by the GEOS 
Application File Type, are entered from and 
exit to the desk Top and conform to the 
GEOS user interfa 
2. Desk Accessories are defined as pro- 
grams which are less complex than applica 
tions, are identified by the GEOS Desk 
Accessory File Iype, may be entered and 
pop-up within any application and upon exit- 
ing return the application to its prior state. 


Categories 
ENTERTAINMENT — Includes enter- 
tainment and games. For example, a Ch 
game (Applications Division) or a trivia 
game (Desk Accessories Di ji 
EDUCATION — Primarily educational and 
instructional, For example, a world geogra- 
phy program (Applic mn) or a 
flash card program (Desk Accessories 
Division). 

PRODUCTIVITY — Designs that improve 
personal productivity. Examples include an 
“outline processor” (Applications Division) 
or a scientific or financial calculator (Desk 
Accessories Division). 
OPEN PROGRAMMING — Open design 
category that includes programs not covered 
in other categories. Examples include disk 
utilities, printer and input drivers and tele- 
communications programs. 

Over $25,000 in 

cash and prizes! 
Eight First Prizes! 
* $1,000 cash 
+ Announcement in Compute!’s 

Magazine 

* Complete library of C64 or C128 GEOS 













































































Gazette 








The GEOS Programming Contest. 


Gazette magazine 

Eight Second Prizes! 

* Announcement in Compute!’s Gazette 
Magazine 

+ Complete library of C64 or C128 GEOS 
applications from Berkeley Softworks 

+ Commodore peripherals: 1670 1200 Baud 
Modem and your choice of a 1764 or 1750 
RAM Expansion Module or 1351 Mouse 

* Three month subscription to Q-Link, the 
telecommunications service and Q-Link's 
Public Domain Software Library from 
Quantum Computer Services 

+ Twelve month subscription to Compute!’s 

Gazette magazine 

ight Third Prizes! 

Announcement in Compute!’s Gazette 

Magazine 

* Your choice of any five C64 or C128 GEC 
applications froth Berkeley Softworks 

+ Commodore peripherals: 1670 1200 Baud 
Modem and your choice of a 1764 or 1750 

pansion Module or 1351 Mouse. 

+ Three month subscription to Q-Link, the 
telecommunications service and Q-Link’s 

in Software 

tum Computer 

Wwelve month subscription to Compute!’ 
















































keley Softworks, Quantum, 
Laser Direct, Computel’s 

«! promotional 

ire not eligible 





ies and their immediate farnli 
nter the contest. 
Each entry must be your original work, 
wusly unpublished in any form, 
All those programs accepted will be required to affirm 
this in wnting, 











3 Contestants may enter multiple categories, but 
j= may only submit one entry per category per 
division (e.g, one entry in the Ente: ent category 
Applications Division, and one entry in the 
Entertainment Desk Accessories Division), 

Regardless of the number of categories you enter, you 
will only be eligible to win one prize 


Deadline for entries is Auj 
NC, 27403 
GEOS Programming Contest. 


5 eptance of an entry shall not create any 
implication that the entry has been received and 
Softworks or has been used in 
ay in product development. 


A Berkeley 
Softworks 
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submission, contestants should 
include in the program their name, 
address and a "user fee” amount for 
satisfied users to send a discretionary payment. 
es may be written it y PORTEITEg 
: but must be a GEOS based program 
executable 
S application. 
must be a 
elf-standing program that can be run by someone 
who does not own the language. We must be able to 
legally distribute the program without incurring 
‘ensing fees or any other obligations to the maker of 
































5" floppy 
format. ‘The following 
on both the printout and 





should 
the disk 








stant’s name, address and phone number. 
18, Category and division for the entry, 
, Intended use for the prog 


10 Entries must be accompanied by a 
ed 


ription which explains How to use the 
brogram and what it does. 
is contest is void where prohibited by law. 
« Allfederal, state and local taxes are the sole 
responsibility of the winners. 


General Conditions 
es will be judged on creativity 
tency with other 

quality of the code. 

* Make sure your mailer will protect your disk from 
damage, Aix sufficient first class postage. Mail your 
printout, disk and official entry blank to the above 
address in time to Gazette Magazine 
before the August 31, 1988, deadline 

+ Winners will be annotinced by October, 1988. 

Sponsored by Berkeley Softworks 
and Computel’s Gazette. 


Petes es | Fy 
PLEASE PRINT 

































ach Compute! 








Name 
Phone 
Address 


City 
State Zip ee, 
Age 





EVERY CONTEST ENTRY MUST INCLUDE THIS, 
SIGNED FORM 

Tarrant at the 
tal work al that the 








pene cited is my on a 








iy enry Berane the pu 
nthe event my prorat nc 
iy: requieed tn sha standard 
dazcement(yo  unke 1, yr ret e yol ardan 










Signature 


We a eee oe 


Lee eee 


The brightest minds are working with Berkeley. 


Classified 





SOFTWARE 


FREE SOFTWARE for C-64, C-128, IBM & CPM 
send SASE for info (specify computer) to: 
PUBLIC DOMAIN USERS GROUP 

PO BOX 1442-A2, Orange Park, FL 32067 


FREE PUBLIC DOMAIN SOFTWARE - Request 
frve catalog or send $2 for sample disk and 
catalog (refundable), C64-128 CALOKE IND. 
Dept. Jk, Box 18477, K,C,, MO 64133, 














COMMODORE: TRY Bi 
Best selling games, utilitie 
& new releases, 100's of titles, Visa/MC/Dise 
Free brochure, RENT-A-DISG, Frederick Bldg, 
#222, Hunt'n, WV 25701 (304) 529-3232 





‘ORE YOU BUY 


educ'l + classics 











64/128 FINEST PUBLIC DOMAIN PROGRAMS 
Pretested quality programs * Most $1.50 * 

* On Disk * YOU pick the programs that YOU 
want!!! Free diskfull of programs with first 

order! For a list + Description send SASE to: 
JLH Co, Dept. G, Box 67021, Topeka, KS 66667 


64/128 EDUCATIONAL P.O, SOFTWARE 
By grade level and subject, ie K-3 math 
K-3 English, 4-6 math, etc, Free Catal 
PSL. Ine, Box 750 A, Old Bridge, NJ 08857 

















ENJOY THE POWE! 
Take contol wih TYPING TEACHER, Touch Typing for 
Novice & Exports Speeds up to 350 words per minute, Color 
coded Keyboard Drs. 118 Naratve Tests (Easly changed), 
Typing and Punctuaton Reterence Gude, and more, C-64/128 
& 256K XT/AT IBM programs included tor $2195-Apple 
\wxsion soon! Add $2 shipping & GA res, add 4% 

+++Quantity Prices Available +++ 

FUTURE AGE COMPUTERS 

9 MeGrary Dr, SW, Rome, GA 30161, 404-231 
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PUBLIC DOMAIN SOFTWARE FOR €64/128 
100 programs only $10 or 260 programs 

for $25 or 2 stamps for catalog, 

MERIT, Box 114 A, Spotswood, NJ 08884 





FREE SOFTWARE for C64. Send 1 stamp for 
Catalog. Games-Educ-Home-Business-Music 
Utilities. RVH Publications, 4291 Holland 
Road, #562-G, Virginia Beach, VA 23452 








WordStar'* V2.26 For C-128 $39.95 +-$4.50 
p/h. Public Domain Software Copying Co. 

39 Gold St, Ste. L3, New York, NY 10038 

+ MicroPro® 800-221-7372 


M BASIC™ or FORTRAN 80™* $39.95 +$4.50 
p/h. Public Domain Software Copying Co. 

33 Gold St, Ste. L3, New York, NY 10038 
*MicroSoft® 800-221-7372 


ACQUIRE: r 
authentic ¢ 
1-4 play 
Jimison, 





finance board game now on 
int full-featured C64 disk 
, computer plays well, $7 to: 
4 E, 15th St. #6, OkInd, CA 94606 












C-64 FREE PUBLIC DOMAIN SOFTWARE 
Free membership & list - Send long 
S.A.S.E. to; NORTHLAND, P.O. Box 2413 
Homer, Alaska, 99603 











GOD-How a sinner is lead to GOD the bible 


way 





thing you need to know, to get 
h GOD, Send $9.95 for disk, 
Detroit, Mi 48214 








<j) WIN LOTTO MILLIONS! 
=~) LOTTO PICKER PLUS v2.1 
Lotto Picker Plus, the onginal lottery 
2" selection software, allows you to store 
winning Lotto, Keno, & Pick 3/4 numbers 
‘& choose between three modes of probability 
analysis (hot, due, unbiased) in order to give you 
the winning edge! Guaranteed to work for all lotteries, 
Bonus numbers are easily handled and our full-eatured 
dates eGlor gs you access to your es, He que 
you the PICKS—not a bunch of jumbled statistics! $34.95 
{589 5). 64/128, OM, 6K Ape NY Te, ad ox 
(OT Copy protected 
ORDER TODAY! 1-800-634-5463 ext 293 (M-F 8-5) 


GE RIDGE SERVICES, INC., 170 Broadway parry 
Suite 201-CG, New York, NY 10038 yee 
Info/Ocalers 718-317-1961 
The MONEY MAKER: a complete financial 
planner providing, a wealth of data on 

borrowing and investing money. More than 
amortization formulas, the menu-driven 

MONEY MAKER also has unique features 

such as loan consolidation and total 

retirement planning, C64, $19.95 


B & J Enterprises, 7.0, Box 49276 
Colorado Springs, CO 80949-9276 


C-NET BULLETIN BOARD FOR THE 64 & 128, 
The most widely used and respected BBS 
available, 300/1200/2400 BPS, 1000 

accounts, 49 message/file transfer SIGS, 
X-modem, Punter, a FAST ML EDITOR, on-line 
games, AND MUCH MORE! 


SOFTECH 
Ss (COMPUTER SYSTEMS, INC. 
[| post oFFIce Box 23397 
LEXINGTON, KY 40523 
(606)/268-BAUD (TECH SUPPORT) 
(800)/992-SCSI (ORDERS ONLY) 
New Comm SED 1001 1 Meg Floppies $169.95 
VISA/MasterCard/COD WELCON 
MISCELLANEOUS 
Now Commodore Qualified Repairs! C64:$45, 
1541:$50, SX64:$65, C128:$50, 1571:$55. Buy 
Sell Trade New/Used - Fast Service! 30 day 
wnty! Mom & Pop's Computer Shop, AR2, Box 
119, Cainsville, MO 64632 (816) 872-6311 


\e\ 




































Inventions, ideas, technology wanted for 
presentation to industry & exhibition @ nat'l 
innovation expo, Call free 1-800-288-IDEA 

ISC-COM, 903 Liberty, Pittsburgh, PA 15 








Rates: $25 ps 
per line {0 















boldface words, or $50 for the ent 








‘at (919) 2 
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COMPUTE!'s Gazette Classified is a low-cost way to tell over 225,000 
microcomputer owners about your product or service. 


wr line, minimum of four lines. Any or all of the flest line set tn 63 
vad sot in boldface (any number of fines.) Ing 


order, Any 








nel must bs 
Ine words to be set in bol 
olfce ox numbers in thet ads must supply permanent address and 





be responsible for offers or claims of advertisers, but will attempt to screen 





I letters at no charge. Add $15 
re about display 








n Expross, Visa, or MasterCard is accepted, Make 








ther typed or legibly printed, One line equals 40 








He (osue ter receipt 
Sond onder and remittance 


HARDWARE 
ve" SPEECH THING” 


For all PCs, compatibles, laptops 
gaa 














CLEAR, CLEAN, 
DIGITIZED SPEECH & 
MUSIC, UNLIMITED 
TEXT-TO-SPEECH 

‘Attaches outside the computer, 
Now get popular speech technologies in ONE pro- 
duct! Speech Thing is c full-teatured 8 bit D/A sound 
converter, Easily attaches outside the computer-no 
slols required, Sofware includes prerecorded 
speech vocabularies, synthetic tex! to speech 
(speaks any ASCII tex!), demo programs, and com: 
plete editing features. Price only $69.95. Also 
‘yallable: Voice Master PC piug in board for digital 
recording, editing, and VOICE RECOGNITION, (Re- 
quiles Speech Thing for sound oulpul,) Only $79.95, 
Patented price performance breakihvoughs! 
TO ORDER BY MAIL Include $4 shipping & handling 
(56 Canada, $12 overseas) per order, Visa, Master- 
Card phone orders accepted. 30 day money back 
guarantee, one year warranty. Other voice |/O sys: 
tems available for Apple, Commodore, and Atari 
computers. 

Call oF wiite today for FREE Product Catolog 


COvOX INC. (503) 342-1271 
675 Conger St., Eugene, Oregon 97402 
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102 Abacus 9 
103 Abacus : f + BC 
104 Aprotok : 29 
Borkeley Sohtworks 1 
105 BRIWALL 23 
106 Central Point Software 37 
107 Computer Diroct 55 
108 Computer Repeats 93 
Crown Custom Govers 97 
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123 Software Simulations 7 
Software Support International 46-47 
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SOGWAP 98 
124 Strategic Simulations, Inc 5 
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126 Tenex Computer Express 89 
427 TEVEX 4 
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Do You 
BY Ncaom sews keteitetg 





EXCELERATOR pLijs 





Plugin the Excelerator Plus compa drive to your 


Commodore 64 or 64C and you'll believe too. 
That's because an advanced technology breakthrough has 
enabled us to create a drive that’s quieter, smaller, 
faster, and more reliable than the 1541 and 1541C. 
100% compatible. Dependable. Guaranteed. 

It's Magic. 

It’s the Excelerator Plus compatible disk drive. 


distributed by 




















} 
@ € Oceanic America 0. Box 70587, Eugene, OR 97401, 503-7! 


Comme 


Manufactured by, 





liake your best 
impression! 


with proven software and books from Abacus. 


Paige zi 












Super Pascal—Get the fastest and Cadpak—The professional design Super C—You can now develop 


complete Pascal for your computer. 
Super Pascal is a {ull implementation of 
standard Pascal, Extensive editor 
features search, replace, etc. Even 
add machine language routines with 
the built-in assembler, Fast graphics 
library. C-64 version has high-speed 


tool. Enter simple or intricate drawings 
with the keyboard, lightpen or 1531 
mouse, With the flexible object editor 
you can create libraries of furniture, 
electronics, etc, as intricate as screen 
resolution permits. Zoom in to do 
detailed work, Produce exact scaled 


software or just Jearn C on your 
computer. Easy-to-use and takes full 
advantage of this versatile language. 
Produces 6502 machine code and is 
many times faster than BASIC. Includes 
full-screen editor (search, replace and 
block operations), compiler, linker and 


DOS for faster access, More than just a 
compiler-Super Pascal gives you 
programming results. 

C-64 $59.95 C-128 $59.95 


Output to most printers in inches, feet. 
C-64 $39.95 C-128 $59.95 


handbook. Libraries for graphics and 
advanced math are included, 
C-64 $59.95 C-128 $59,95 





won 
Aa) 





BASIC Compller— 
Now anyone can make 
their BASIC programs applications. Adds 
fun faster! Easily 270+ commands. Dialog 
converts your programs boxes, buttons, pull 
into fast machine down menus, hi-res 
language or speed graphics and more. 
code. C64 $49.95 

C-128 $59.95 C-64 $39.95 


Abacusiitll 


Dept. M8 - 5370 52nd Street SE + Grand Rapids, MI 49508 


BeckerSASIC—for 
writing your own GEOS 


ind Pasy-to, 
“l0-use q, 

#190 capaciy, poe: 
$79.95 





of tho Amiga's 


fe De! 996) 
ence list, Conditonal age lSS88@mbIer ane) 
Call 1-800-451-4319 for the name of your nearest dealer or to order OF Write for ie 95 
direct using your MC, VISA or Amex card. For technical support S Ore software our fee Amiga 
call 1-616-698-0330 + Telefax 1-616-698-0325 « Telex 709-101 | Tor i. 8 o0\storod 8d books comm) so war 
Call or write today for your free catalog. Add $4.00 per order for OS isa ante d racemarger a of Com Ng soon} 
shipping and handling. Foreign orders add $12.00 per item. Wk Of Beraley samme Am Beni Lig 


